Ifi 1 er hehrinmariaim des nrnarammes infnrmatimip.s 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II et lie 
. CANON X-07 . CASIO FX 702-P . COMMODORE 64 et VIC 20 . 
GOUPIL . HEWLETT PACKARD HP41 . MULTITECH MP-FII . 
ORIC 1 . SHARP MZ, PC 1211, PC 1500 . SINCLAIR ZX 81 . TANDY 
TRS 80 . TEXAS Ti-99/4A . THOMSON T07 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAQUE MOIS. 
1 voyage en Californie pour le meilleur iogiciel CHAQUE TRI- 
MESTRE (Reglement en page interieure) 



Sous-marin 



Le fond de la mer est frais et plutot accidente. Essayez de 
traverser le tunnel sans heurter les parois (si vous rencontrez 
I'hippocampe. ecrivez-nous !). 

MARCELLIN Pierre 
Apres avoir lance le programme, apres le titre. vous voyez : 

Debutant ">- 
3 reponses possibles : •■ O ■ — parcours facile. 
- N — - parcours difficile 
Autre chose — melange des deux. 

Duree du jeu ? ■■ : indiquez le lemps pendant lequel vous voulez jouer 
Vous entendez alors. apres que le tunnel se soil dessrne. un bruit vous 
mdiquant que vous pouvez parlir. 

Appuyez alors sur les touches ) et I pour deplacer voire sous-mann. 
II laut alors essayer d'atteindre la derniere colonne de I'affichage. et de 
franchir la porte. Derriere vous attend un autre tunnel. 
Ne vous decouragez pas si vous ne parvenez pas a franchir un lunnel au 
niveau difficile. C'esl possible. 
Record a battre. niveau difficile: 8 passages en 5 minutes. 

e programme lourne sur un PC 1500 equipe d'une extension memoire 



4K. 

930: "J"CLS : 

RESTORE 1250: 

WAIT 10: CURSOR 

7: PRINT "SOUS- 

flPRIN" A«^00 

940:FOR I=1T0 ^oC' 

READ a*CI>: * 

NEXT I:GCURS0R 

23:GPRINT A*: 



GCURS0R 120: 
GPRINT A* 
950:GCURSOR 23: 
GPRINT B$: 
GCURSOR 120: 
GPRINT BJ: 
GCURSOR 22: 
GPRINT C4: 

Suite page 11 



GillesGRAPINETmet legrappin sur 
le groslotdu moisetsur celui du tri- 
mestre. A lui la CALIFORNIE! 



Son programme ■■ MORTELLE 
RANDONNEE ■ pour TEXAS Tl 
99/4A I'emporte en force des le 
premier jour de reception des bul- 
letins de vote il a pris la lete du 
classemenl et I'a conservee jus- 
qu'a la cloture du scrutm ' C'est 
done lui qui gagne le cheque de 
10 000lrancs offer! par HEBDO- 
GlCIEL. I'ordmaleur ALICE du 
mois offert par HACHETTE 
MICRO INFORMATIOUE. I'im- 
primante du TRIMESTRE. une 
superbe BROTHER EP 22 offerte 
par DURIEZ el un livrede la Regie 
a Calcul et le voyage du Trimestre 
en CALIFORNIE Bravo Gilles 
GRAPINET | 



Les autres gagnants des livres de 
la REGLE A CALCUL sont Luc 
LEVY Alain PRE. Olivier FRANCE 
J -Marc FRATARD Vincent 
GRENET. Gerard LECANNU. 
Nicolas BAUD1MENT. Joel 
GIRAUD P Yves CHEVALLIER 
Philippe BARREAU Michel 
PIPON, J THIRIAT. J CAPOE- 
VIELLE Pierre Andre LOTHE. 
Pascal et Eric HOSTACHY Ber- 
nard GOURC. Gilles GRAPINET 
El c'esl Gilles GRAPINET qui 
remporte les logiciels de SQUI- 
RELLE pour ORIC 1 



PATOIS BASIC EDITO 



L'adaptalion d'un programme dun 
ordinateur X sur un ordinateur Y 
n'est pas toujours chose aisee 
A priori, presque tous les ordma- 
teurs individuels sonl programma- 
bles en basic, tangage theorique- 
ment standardise. 
En realite. et le basic par lui-meme 
n'est pas en cause, chaque ordina- 
teur possede son basic ■ etendu 
qui reste tres different des autres 
Hebdogiciel vous aide a realiser 
l'adaptalion des programmes qui 
vous mteressent en publiant. cha- 
que semaine el pour chaque ordi- 
Suite page 15 



Le premier voyage en CALIFOR- 
NIE vienl d'etre "gagne par Gilles 
GRAPINET. I'hebdo a done deia 
trois mois : presque 250 pro- 
grammes • J'espereque vous n'etes 
pas trop decus. vos programmes 
etaienl aussi tres bien. et puis les 
concours sonl permanents. les 
cheques de 10 000 francs vous 
atlendenl pour les prochains mois. 
ainsi qu'un autre voyage en CALI- 
FORNIE au mots de mai Conti- 
nuez a travailler vos listings ' 

Logistick nous rejoinl et distnbue 
une garnme complete de ses cas- 



settes pour les meilleurs pro- 
grammes du mois sur FX 702 P et 
PC 1500 
A vos claviers' 



Gerard CECCALDl 



MENU 



APPLE II Fichier d .idresse 

Jean-Jacques TANGHE page 13 
CANON X-07 France 

Siephane GILLOT page 3 

CASIO FX 702 P Cosmos 99 

Emmanuel PESTOURIE paqe 3 
COMMODORE 6-1 Indianapolis 



Francois BARRAUT 

COMMODORE VIC 20 

Felix SAUVAT 

GOUPIL 

Antome DUCRET 

HP4I 

Nathalie DEHUIRE 

ORIC 1 Redefm 

caracteres 
Alain AGUSSOL 
PC 12tt 
Alain DUBUS 
PC 1500 

Pierre MARCELLIN 
MPF II 

Gerard MOLINENGAULT page 2 

M2 700 Programme 

m.ithemaliquc 

Jean-Francois JEUNET page 



page 7 
Mission 
paqe 5 
Contadet 
page 10 
Leon 
page 15 



page 5 
Black Jack 
page 4 

Sous-mann 
page t 

Minuscule 



Olivier DUBOIS 
TRS 80 

Bernard DUPIN 
Tl 99 4/A (b e ) 
Michel CORRENOZ 
Tl 99 4/A (bs) 

Mike LAHMY 

T07 

Mate RAYNAL 



i de dames 



page 6 

Loiomalh 

page 9 

Tr&verstQ 

de la M.ii. it" 

page 4 

Isometrie 

page 7 



HIPPOREBUS trouvez I'expresston qui se cache dans la 8 D de I'hippocampe Decompose en trois syllabes dans les trois premieres cases, le "tout" aevidemment un rapport avec I'mlormatique 
solution en page interieure) 




£(!£ H'ZSTPAS DANS l£ PANfER .'... 




ET MO N TOUT FAIT PARTier D'uNE 
COLLECT/ ON .. . 



3£ LESA15 BIEN /*£ S CHISRS AMiJ 
CE N'tSTPOlVlT TO.UT6S LES 

SEMAIN6S PACILES^; 
MAIS CELA . 
FAIT MARCHER 

fletANE S* 
PAS VRA'l?4 



\^ IN IO y0,l;nwiera< J 



Allamagne 3,50 DM Belglque SSFra Canada 2,50) i uxambouffl 57 Frs - Suisse 3 Frs 




MINUSCULE 



Ce programme, minuscule lui-meme. enrichit le clavier 
de votre MPF II : il permet d'acceder aux iettres 



minuscules. 



Gerard MOLINENGAULT 



Fors QUE 



I? HOnE PSIut ppikt PR i hi 

PRIHT PRIHT - ce PROGRAMS PEHH6 

T L 'UTILISATION DE~ PRIM! PPIMT -LETT 
RCS HIHUSCULES ■ 
20 PRIHT PRINT ' 

rograhhe est :harge- I.. ... 

5 -EXECUTE DE LUI HEME" 

39 PRINT 

* >:! Fp !' tT " V0[C[ Lfl C0RRESPONDaMr£ c 

HIRE LES" PRINT PPIHT TOUCHES -T LES 

LETTRES 
*3 FFINT PRIN 

PRIMT " 

COHTIHUER 
50 GET 01 if (,s ( > - 

-;o HOME 

79 HT4E =- PRINT "1-- t. 
PRIHT "2— >B" 

ee ht»e ^ print ------- 

PRINT -4— >D" 
HTflB 5 PRINT "5 — >E 




198 HTwE 5 PRINT 

FPIHT -b— ■■;■■ 


•y.~ MJ-: i HTfiE Z5 


190 HTfiE 5 PRINT 

FPIHT '.;-- ■-■■ 


■F~>Y* ■ HTftE Z5 


19* PRINT ' PRINT 


PRIHT PRINT 


CONTINUER 


ftPPyVER SUP FIRE POUR 


193 GET ci ;f Ht 
19$ HWE 


> "." THEN 1=5 


i-jo print prist 
es s 'qbtienhent en 


PRINT "LE-; KIMUSCUL 
APPUYAHT' : PRINT 



PR IN 



- F- 



HTftE i^ 



HTfiE 5 PRIHT •?■ 
PRINT ■0—>N« 
9 HTtiB 5 PRINT >|t 



HTAE 



PINT 



PRIHT ' 
;9 HTfiE 5 PRINT 

PRINT "G— OP- 
ta HTt,E 5 PRINT 

PRINT -E-->R" 

;a htab 5 print 

PRINT ■fl~>T I 

'8 HTfiE 5 PRINT ■ 

PRINT ■Z~>U' 



PRINT "O'fiBORE SUA CTRL E PUIS 3UK L- 
TOUCHE " PRIHT PRINT "CHOISIE EH HEH 

E TEMFt QUE SUR CTRL ET- PRINT 
PRIHT "SUR SHIFT 

£13 print PRINT "EXEHPLE -OUR 3BTENIS 
i MHUSCULE, JE FAIS" PRINT PRINT »CT 
PL E PUIS SHIFT-CTRL-N'i PRINT 

PRINT PRINT PRINT 
590 POKE 2938,64 
1909 REP! U 
1818 P )KE 15394 

POKE 16386.29 

POKE 16388.69 

POKE 16399.60: 
1915 REM 
1929 POKE 16332.2 POKE 16393. 2 : 

POKE 16394.2- POKE 16395.39 POKE 163 
96.34 POKE 16397,34' POKE 16398.39 

POKE 16399.8 
1935 RE* C 
1038 POKE 16408.8' POKE 16481.9 

POKE 16492.26 POKE 16483.2 POKE 164 
84.2 POKE 16485,2' POKE 16406,26 

POKE 16497-9 
1835 REM D 
1948 POKE 16488.32 POKE 16489,32 

POKE 16418-32 POKE 16411,69' 



8 POKE 16383.8 

POKE 16387,32 
POKE 16389.34 

POKE 16391.9 



POKE 16412 - 14 



POKE 



.68 



POKE 16417. i 
POKE 16419. i4 
POKE 16421 ,2 



1843 

1859 POKE 16416.1 

POKE 1 

POKE 16429, TO 
22.28 POKE 16423.8 
1855 REM F 
1869 POKE 16424.24 POKE 16425.4 

POKE 1642-;. 4 POKE 16427,12 POr 
28.4' POKE 16423.4 FOKE 16439.4 

POKE 16431.9 
1865 REM 6 
1978 POKE 16432.8 POKE 16*33-9 

POKE 16434.26 POKE 16*35.34' 

POKE 16436-34 POKE 16437.60 

POKE 16*38.32 POKE 16*33-26 
1875 REM H 
1868 POKE 16449.2 POKE 16**1.2 

POKE 164*2.2- POKE 16*43.39 F0> 
*4-34- POKE 16445.3* POKE 16446,3' 

POKE 16447,9 
1985 REM I 
1999 POKE 164*8.8 POKE 16*43.8 

POKE 16450.3 POKE 16451.12 POl 
52,8 POKE 16*53.5 POKE 16454.28 

POKE 16*55-8 
1095 REM J 
1190 POKE 16*56.8 POKE 16*37,16 

POKE 16*56.0 POKE 16459.16 POl 
60-16 FOKE 16*61-16 POKE 16*62,1' 

POKE 16463-12 
1105 REM K. 
1118 POKE 16*64.2 POKE 16465.18 

POKE 16466.18 POKE 16467.6 POl 
68.19 POKE 16*69.18 POKE 16470,3' 

POKE 16471,8 



1113 



tEfl 



1129 POKE 16*72.4 POKE 16*73.4 
POKE 16*74,4 POKE 16475.4 POl 

6.4 POKE 16477.4' POKE I647e,24 
POKE 16479,0 

1123 REM M 

1139 POKE 164S9.9 POKE 16481.9 
POKE 16402.54 POKE 16*83.73 
POKE 16484.73 POKE 16485.73 
POKE 16486.73 POKE 16*67.9 

1133 REM N 

1148 POKE 16*66.0 POKE 16469.9 
POKE 16499.39 POKE 16*91.34 
POKE 16432,34' POKE 16493.34 
POKE 16434,34 POKE 1649S.0 

1143 REM 

1150 POKE 16496.0 POKE 16497,0 
POKE 16498.26, POKE 16499.34 
POKE 16508.34 POKE 16591.34 
POKE 16592.29 POKE 16583.0 



115-5 



?EM I 



1169 PO'E 1650* 8 POKE 16593. • 

POKE 1639^-3-J PO'E 163*7.1* 

PO'E [6364, "' 

POKE 16510.2 
1165 REM 
I ire POKE 16912. ■ POl E I 

POKE 16314,64 PO'E 16313,3* 

POKE 16516-3* POKE 1 1 

POKE 16518- 32 POKE 1651?. 32 
1173 REM R 
1199 POKE 16520.0 POKE I 

POKE 16322-28 POKE 16523-3* 

POKE 1652*.2 POl E 16323, Z P 
6.2 POKE 16527.9 
1185 REM S 
1199 POKE 16528,0 POKE 16329.9 

POKE 16539.69 POKE 16331.2 POKE 
32.23' POKE 16533,32 FQK£ 16334.39 

POKE 16535.9 
1135 REM T 
1289 POKE 16536.4 POKE 16537,14 

POKE 16338.4 POKE 16539-4 PO E 163 
9.4' POKE 16541.4 POKE 165*2-2* 

POKE 16543-0 
1203 REM U 
1218 FOKE 163*4.9 POKE 16343.9 

POKE 16546.34 POKE 16547.34 
POKE 16349.24 
POKE 16331.8 



I63J 






8 POKE 16333.9 
POKE 16355-34 

POKE 16557.:.; 
FOKE 16539.9 



POKE 16545,34 
POKE 16558. 28 

1213 REM U 

1223 POKE 15552 
POKE 16554.34 
POKE 16556. 29 
POKE 16339.8 

1225 REM H 

1238 POKE 16369 9 POKE 16561,9 
POKE 16562.73- POKE 16363,73 
POKE 16364,73 POKE 16565.73 
POKE 16566.54 POKE 16567.0 

1233 REM :■: 

1248 FOKE 16568.0 POKE 16569-0 
POKE 16570.34 POKE 16571.20 
POKE 16572-8 POKE 16373.24 POKE 165 

74,34' POKE 16575-8 

1243 REM V 

1258 POKE 16576,0 POKE 16577.0 
POKE 16578.34 POKE 16579-34 
POKE 16588.60 POKE 16581. 32 
POKE 16382-32 POKE 16383.29 

1235 REM Z 

1269 POKE 16584.8 POKE 16585.8 
POKE 163S6.62 POKE 16387.16 
POKE 16368.8 POKE 16339,4 PO- E 165? 

0.62 POKE 16591,8 ■ 

MP-FH 



PROGRAMME MATHEMATIQUE 



Ce programme transforme votre MZ en un mathemati- 
cian distingue. 



Jean-Francois JEUNET 




1 MUt=" - EOF.-E-F-E:": TEMPO 6 

2 SP*=" 

3 GOTO 199 

10 DEF FuF-V.,-lW/.*«-'-ti;it,- 

11 RETURN 
163 PPIHT"E" 

116 r - r -" IT " " 

120 PP.lHT"BNMMM BIBLIOTHEQUE I1hTHET1hTK'UE HHI' 

17,0 PRIHT"J — — ■ ■ 

140 PRINT Tfi8O9>I"0l" 
150 FF:INT"0:>rlMftMDES :" 

160 PRINT*flc«al(wu« des functions 1" 

170 PRIHT' , nro?ro™'i<Uiori <je la f oration 2" 

160 PRINT"repre5entaiiori »rarhi*ue 3" 

198 PRINT" * inPressior, des eehelles 4" 

280 FPIHT"!! ♦ jrcr.de de la fooctlon 5" 

210 PPINT"3 * calCUl de point* de f(x) 6" 

■•-0 PPINT'Vesolution de f'/.;=6 7" 

230 PRIHT B ime»raliori nunentue 8" 

246 PRIHT"COnMfiNDE ?« 

250 GOSUB 900O 

260 ON UftL'Gt) GOTO J60, 2080- 3000. .iQOG- 5000. tOOO. 7000 

2000 PE1-1 <•• PROGRflrWRTIQH DE F<X) **+ 

2010 PRtHT"B" 

:oio r ' f " u " 1 .n' 

2B30 FPiMT"aa«Mmn ppogp&miicition de f<>\; (wnniT' 

20*0 FP1UT- U ' ■ ' " 

2050 PRIHT THS^39j:"D2' , 

2068 PRIHT"OintPoduir« la fonction de x li*n* 10" 

2076 PfTlHT"sutvarrt If nod»le I" 

:0"_:0 PPIMT'210 ['EFFH F'',-'.'= f one It Of. de " 

2090 PPIHT"8ex«r>r.l« : 10 ['EFFH F-X.-LOG'XJ" 

210O PRIHT'-Bouis la^ez 'ftUH'" 

2110 PPIMT'-B-sSTOP 

7000 PEH *+■» PEPPE^EMTCiTIOII &P&PHIQOE 

30!0 PRINT'-a" 

:o:o 308UB io 

5836 r '""' T " ^^^., 

7040 PRIMT- fl— ■ REPPE'iEMTfcriOH GPhFHIOUE crtMJK" 

305& PRIHT T— * ~ ■ ■" 

3060 PPIHT rfl8(39>l*fl3" 

3070 FPIHT" le trash* %*. f«ro dans .jn r*p?r«" 

3868 PPIHT-ort-honorne Co.iij)," 

3090 PRIHT-Dabscus* nmimlt ?" 

3100 IHPUT"C";X1 

3116 PPIHT-Dabsciss* m>:im]< ?" 

3120 [HPUT"8"IX2 

3130 IF XUX2 THEH 3200 

7140 pPliiT"OBBDa[!:ii:::::i:!!::::!j:!ri:!!:sO"Jonfi**i %uco< 

-■■■'. . <-"-.;. s.ji iPfiCE " 

3H5 MUSIC MU* 

3150 GET &*: IF 6*="" THEH J1S8 

3160 IF Gt-" " THEH 3150 



3170 MUSIC MUttGOTO 3150 

3180 PRINr'aSBCaaSHIT: :FOft 1=1 TO 131PRIKT SP*!:HEXT I 

3135 PRIHT"0BCB3BaBB";:G0T0 3090 

32O0 PRINT"DBBB":FOR 1=1 TO 15: PRINT iPJ::HE>^T I JPRIHT"DBBC" 

32I0 PRIHT"le graphe se fera sur L 'interval !»■ 

7220 PRIKT*C"IX1I" ;"tX2i" 3" 

3230 PRIHT-l'interyolle est.il correct ?" 

3240 GET Gt:IP Q*-"" THEH 3246 

3259 IF Gt="N , 'THEHPRn4T' , OBnB' , :FORI = lT09:PPIUTiP3-::nEXTI:PR 
IHT"[3BaB , ':r30T030?0 

3260 IF Gt="0" THEH 3230 
3270 MUSIC MUt: GOTO 3240 

32S0 PRIHT"IDBBBBBBB":FOR 1 = 1 TO 10:PRIHT SP*;:HEXT HPR 

INT• , aCBBaBI!B , ' 
S298 PRIHT"deslrez.wus un trac^ Point par Point" 
1388 PRINT"Oou bien un trace er, surface ?" 

3310 PRlNT"trac« uomt Par point ^OPTION) l" 

3320 PRINT-Btrx.ee en surface (OPTION) 2" 

-■sM f J PIt;T"2-i:je 1 le on*, ten choii i -j^:. vous ?" 
*""■ GET Z: IF Z=0 THEN 3346 

IF <Z<1>+CZ>2>THEN MUSIC MUHGOTO 3346 

PRINT ';QBBB"i FOR 1 = 1 TO lSiPRIKT SP»M(CXT IsPRIHT-DBac- 

rTClNT calculs en cours. potieritez s.y.p" 

DII1 U<32) 

XL=CX2-J(1>^79 

UI=lE*5:UF=-lE+5 

FOR 1=0 TO 79 ^% 

X»Xl*I*XLiFX^N F<:XJ:U(I>=FX ^% I » 

IF FX>UF THEH UF-FX ^^A Ul J 

IF F>XUI THEH UI-FX ^^M C J ^^ 

UQ=<UF-UI)/49 ^Al% M^ 

PRIHT-E" «V »^^ 

IF Xl+X2>6 THEN 3520 » v 

XX-79-XZOO. 

FOP 1=0 TO 491 SET XX.HNEXT I 

IF UI*UF>0 THEN 3550 

UU=49+L>I-'UG 

FOR 1=0 TO 79:SET I.WMIEXT I 

IF 2=2 THEH 3700 

FOR X=0 TO 79 

V=49-OJ<X>-UI)xUQ 
75S0 SET X,V:NEXT X 
3590 GOTO 3756 
3760 FOR X=0 TO 79 

3710 v^9-<y<x>-ui)/yo 

3720 IF M<X.^0 THEH FOR I=V TO 'JU:S£T X, I: NEXT I 

3736 IF U'.X)<=6 THEH FOR I-UU TO ViSET X, UHEXT I 

3740 NEXT X 

3750 PRIHT"OCOtineiHDE ?"iGOTO 250 

-iOOO FEM '•'■•IMPRESSION C'ES ECHELLES 

4010 PRIHT"H" 

4020 PRIHT"^ ■■ 

4S30 RRINT"33*«*MS IMPRESSION DES ECHELLE3 ■MM' 

4040 PR I HT" J '■ 

4050 PRINT T&e<39J'"B4" 

4066 PRIHT"fla " 

4888 PRINT" X mn...":Xl 

4090 PRINT" y. M0X..."1X2 

4160 PRIMT"B " 

4110 FPIHT" V nin.,.":UI 

4120 PRIHT" V fWX. .."IVF 

4130 PRINT"!! " 

4140 PRIHT-BCOMMFiNDE ?" 

4I50 GOTO 250 

7000 REM ++* TRfiCE DE Lft CuURBE +** 

5005 IF t.'fj.' O THEH 3400 

5O10 PRIHT"H" 

5020 PR I NT "^^_ ^^^" 

5030 PPIHT"EMMW9JM REPRESENTPTION GRflPHIfjUE HMHamJ" 

5040 PR1HT" JJ ' ' " ■" ■ 

5050 PRIHT TRB':39)I"B5' , 

5860 FRINT-BBHTTEHTIOH 

5070 PPIiifBdur.jn.: (ouibe n'eit *n I'.enoire- si '>ous" 
50SO PF:lNT M desirei en tr-jcer- Mive.tapez 'cownonde 3'" 
5090 PRIHT"OnDCOMr«HDE 7"iGOT0 250 
6888 PEM •>** CfiLCUL DE POINTS POP F<X^ 
-005 GOSUB 10 
6010 PFIHT"H" 

6020 PR1HT"_^_ ^^■b" 

0070 PPINT-'OtMWMN CftLCUL DE POINTS PPR FO 

6040 PPIHT-U 

6050 PPIHT THB'39;: M n6" 

6060 INPUT ■'BBDUOLEUP [>E X ? "IX 

6070 V=FHF'/:> 



7750 
3360 
3370 
3406 
3410 
3420 
34 70 



3510 
3520 
3530 
3540 
3550 
3560 
3570 



7010 
7020 

7030 



70?0 
7100 
7105 



7130 
7140 
7150 



7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7700 
7310 
7320 
733G 
7340 
7356 
7360 
7370 
73S6 

7365 
7396 
7466 
7465 
7410 
7426 
7436 
7440 
7450 



:J0'0 

Si 00 



MOO 
8190 

.;:. mm 

8210 
8220 

...■■n 

0240 
8290 

S. Ml 

6270 



ifllM 

■,i,.'„ 
9070 



PRIHT"BBBF<";X:" ) =":V 
PRINT"BBaCOMNHNDE ^'^goto 250 
REM *** RESOLUTION DE FW-6 
PR I NT "B" 

PR I NT " 

FRINT"a.MH.lltI1 RESO..OTICN DE Fry. 

PR I NT " ti " 

PRINT iaBWj;"Z?" 

GOSUB 16 

PRINT"irUroduire 1 'interval le [a.b] ow 1 'on" 

PRINT" recherche les racine»." 

INPUT-B borne inferieure ft "Jfi 

INPUT" borne super ieur-e E ":B 

IF R>=B THEH 7010 

PRINT"* -■• 

PRIHT"introduire le Pas. de telle sorte <»u'il" 
PRINT"n'exi&te iu 'une seule racine dans" 
PRIHT'chcnua pas de [a.b]." 

INPUT"B valeur du po» "iDX 

ER=1E-10 

PRIHT"DnBB":FOR 1-1 TO 151PRIHT SP*riNEXT I :PRIHT-DOBB" 

PBIKT" resolution de f<x>"8 dons 1 intervalle" 

PRIHT*C"I0[" 1-tBi' J" 

PRIHT"Brecherche des racines. patientez s.m.p" 

CI=0iDIM Rfl<20> 

vt=u: yF=xi 

IF FNF(fi)=S THEN XC=fl:GOTO 7380 

IF Xi;=B THEN 7466 

XI»XF 

KF-XF+OX 

XH=XI:X6=XF 

UI=FNFO:i>:U2=FHFCXF) 

IF U2-0 THEN XC=XFt60TO 7386 

if u1*m2>«0 theh 7240 

xc=<.:-:h+xbv2 

TE=FHF<XC> 

T2=XB-XC 

IF T2<=ER THEH 7336 

IF FNFCXft)*TE>6 THEH Xfl-XCiGOTO 7360 

XB=XC 

GOTO 7310 

RF«CI>=XC:CI=CIti:PRINT ,l Ol!BUIlBi:BIl!lllBaBIJCECECCCCEC£ , 'lC 

I!" racine"! 

IF CIM THEN PR I MTV 

GOTO 7246 

PPINT"aaaa":FOR 1=1 TO I9:PRIHTSPt::NEXT:PRIHT"rjBBBB" 

IF CI=0 THEH 7456 

FOR 1=1 TO CI 

PRINT-racine (■»(' >";" "iRflU-U 

NEXT I 

PRIHT'DCOHTIPUDE ^"':GOTO 250 

PRIHT'PflS DE RfiCINE !!!"'tGOT0 7440 

REM *** IHTEQRflTlON HUMERI QUE 

FRINT"S" 

GOSUB 10 

r,r,,,IT " " 

PRIHT"a.«W*MH INTEGPhI ion HUMERI CUE Itlllllir 

PR I NT "U ■ 

PRINT TOBag^'OS" 

PRIHT"soit 1'tnteryalle Ca.b] tubdlvlH en n" 

PRINT"r.<jrties, ce oro»rdnrie calcule I* 

FF Inr"aaSWSEBEB5SSWS£SSb 1 ' 

PRIHT-SSESSSSESSESEBSa' " 

priht"se:ksscks=ss==/ f(x>dx" 
PRIHT'MgBBMBBgWBBW ,l 

PRI NT "SEEESSEEKSSESCa " 
INPUT"BUBvaleur de a "tfl 
tNPUT"ual#ur de b "iB 

IF fl =8 THEH 0008 

IHFUT"....,l.;.ir ■ !■ r, ":H 

PRINT "13308": FOP 1 = 1 TO 18i PRINT SPf: t NEXT I iRRIHT'DBBOB" 

PRIHT"coicul «n coursi oaiientez ».u.p" 

H-<B-fi>Hi'.'l»0:U2"8 

FOR I-fl'H TO H+<M-1)*H STEP 2*H 

FX"FHF<] nyi-4»FXeUliNEXT 1 

FOR I=2*N*h TO fl+<H-2>*H STEP 2*H 

rX = FHF' I.':".'.,.;.|:;ni,' ; M[-.:-n I 

U3-FHF<flJiU4«FHF<B) 
U-(U1 *U2*U3*U4>»<H^3J 

PRINT'DBBB-iFOR I-l TO SiPRINT SPtfiHEXT 1 !PRIHT"OBBaB" 
PRINT"IIRLEUR DE L'lHTEGRRLE !"tu 
PPINT-'flBBCOMMfilt&E ""tGOTO 250 
REM •*• SOUS PPOG. GET *'• 
GET G*:JF ij*-"" THEN 9010 

IF '""I "'.I' I ■•■"Hi '.,1 ...:: . 1 Ml II ISM- |i HUt i IJUI'U 9010 _ 

PETUPH ■ 



JEU DE DAMES 



Ah. lespetites dames de Paris... 

Inulile. sans doute. de vous preciser les regies du jeu. 

Soyezruse ! 



Olivier DUBOIS 



1 REM E£RND/*F7 SflUE TflN 




133 
113 
120 
13C> 
14.P 
I5P 
163 
173 
130 
193 
191 

195; 

^CO 
210 
220 
£30 

S3S 

acs 

243 

25'3 
£63 



DIM D«(5) 
LET X=NOT PI 

GQSU S 1303 
REM — 



RflND U5R 16-514- 
DIM fit [IB, 10) 

LET fit CD = 

LET fit (2J =" 

LET Rt t3) =" 

LET Rt (4) =" 

LET Rt (S) =" 

LET fit <6> =" 

LET fit (7) =" 

LET fit 13} =" 

LET fit C9J =•' 

LET fit (10) = _ 

PRINT RT 1, 10; - 

FOR 1=1 TO 10 

PRINT TRB 9; " I" 

NEXT I 

PRINT AT 12,10; 

FOR 1=1 TO 10 

PRINT RT 1+1, 10; Rt (I 

NEXT ~ 




IF X THEN RETURN 

LET J =2 

FOR 1=1 TO 

PRINT RT 

LET J=J + 1 

NEXT I 

PRINT RT 

LET J=10 

FOR 1=1 TO 9 

PRINT fiT 14-, 

LET 0=J+1 

NEXT I 



,7; I 



,7; "0B- 



<&& 



S72 


PRINT RT 14., J; "e«" 


275 


ul>twt dt of> , . "Tft^afBB" 


276 




277 


GOoUB 170 


230 


INPUT Dt 




IF Dt="" THEN GOTO 280 






ago 


LET fi=UAL Dt (1? 




IF ft=0 THEN LET fi-13 




Lt I B=URL Dt f2J 




IF B=0 THEN LET B-10 




LET fit (fi,B) =" " 




IF Dt(3)="S" THEN GOTO 3S0 




IF Dt(3J="D" THEN LET Z=l 




IF Dt(3)="G" THEN LET Z=2 


330 
= "H" 

34-0 
""■" 

353 


IF 2=1 THEN LET fit<fi+l,S-H> 


IF Z=2 THEN LET ft* (fl + 1 , B-l) 






PRINT RT fl+2, 10; fit (R+l> 




GOTO 4-50 








IF D*C40="G" THEN LET Z~2 




IF D$(4) ="R" THEN LET Z"3 


4-00 

= ■•§'■ 

4-«5 


IF Z = l THEN LET A$ffi+2,B + 2:- 


IF Z=3 AND D4(5)-"D" THEN L 


El fit <fl-2,B+ff) ="H" 






ET fit (fi-l,B+l) -" " 




IF Z=l THEN LET fitCfl+l,B+l) 


420 
= -H" 

4-25 


IF Z=2 THEN LET Aft) (fi+2,B~2> 


IF Z=3 RND D*(5.'="G" THEN L 


ET fit (R-2,B-2) ="H" 


426 


IF Z=3 RND Dt(5J="G" THEN L 




4-33 


IF Z=2 THEN LET AS (fl+1 , 8- 1) 




451 


LET X=l 


4-52 


GOSUB 170 


455 


INPUT Dt 


458 


IF Dt="" THEN GOTO 455 


463 


IF D*ll)="N" THEN GOTO 275 




LET fi = UAL Dt «1) 




IF A=0 THEN LET A~10 




LET B=UAL Dt (2) 












.F D|(3)="S" THEN GOTO 580 








IF Dt(3)="G" THEN LET Z=2 


= ■■0" 
54.0 

= •■0" 
553 


IF Z=l THEN LET AtCA-l.B+l) 


IF Z=2 THEN LET flt(A-l,B-l) 




5oO 




573 


GOTO 653 








IF DtC4)="G" THEN LET Z=2 






= "0" 
605 


IF Z = i THEN LET R*(fl-2,B+2) 




ET At <A+2,B+2) ="0" 






ET Rt (A*1,B + 1) =" " 


610 


IE Z=l THEN LET R*Cfl-l,B+lJ 



620 IF Z=2 THEN LET flt(R-2,B-2 
= ■■0" 

025 IF Z=3 fiND DtC5>="G" THEN 
ET Rt (A+2,B-2) ="0" 

026 IF Z=3 fiND D*(5J="G" THEN 
ET fit (A+i,B-l) =" " 

630 IF Z=2 THEN LET fi*(fi-l,B-l 

54.0 PRINT AT R-l , 10; At ( A-2) 

545 PRINT RT fl,10;At(A-l) 

653 GOTO 275 

1003 PRINT 



1010 PRINT 
1020 PRINT 

LETTRES 
1030 PRINT 
ME CHOISI 
104-0 PRINT 
DROITE" , , , ' 
CHE" 
1050 PRINT 



"UOUS POUUEZ ENTRER 5 
POUR UOS COORDONEES" 
, , "C DESIGNE LA COLON 

L POUR LA LIGNE" 
,,"CLD >>>> RUfiNCE fi 
CLG > > > > RVANCE A GHU 

.,"CLSD >>> SHUT R DR 
T TTE ,,,"CLSG >>> SRUT A GfiUCHE" 
I3o0 PRINT , , "CLSRD > > SRUT A RE 
CULON A DROITE" , , "CLSRG >> 5AUT 
H RECULON R GfiUCHE" 

1065 PRINT , ,,, "BONNE CHANCE fl T 
OUT LE5 DEUX" 
1070 PAUSE 4.E4- 
1OS0 CLS 
1390 RETURN 
9997 STOP 
3998 SRUE "DfiHS" 
9999 RUN ■ 



FRANCE 



X07 s'attaque a la geographie de la France avec ce petit 
programme que vous pouvez. bien entendu, modifier. 

Stephane GILLOT 



1 DlHA»<SO>,A{£ / »,B<30)lX«-" ": INPUT" jeu 1 DU Z:"JD 

2 CLS:REST0F:E10O:F0P*I = 1TQ.ia:fiEADA*m:NEJn 

1 CLS: RESTORE 10: P5ET <20. 2) : FORI =fjT09£>: READX, V: L INE- ( X. VI :NEXT 

4 R£BTfXtE200*F0RI-lT04B:R£ADAI I) ,Bl U iNEXTi IFD=2THENSUTD10OO 

5 ' •«C:O0^DOMMEES*- "CARTE FRANCE»LIL IST;,4 

10 DATA20, 2,22, 2,23, 5, 24. 1, 2Z. Z, 2b, 6, 27, 3. 27, b. 2B, 7. 29. 8, Z\ . 8, 32. 9 

20 DSTA33. 10,34, 10,34. 11.33, 12,33, 13,33. 14,32, 13.31, 16,29, 16,29, IB 

30 DATA2B. 19,27,20.30, 19.31. IS, 32. 19,32.20, 31,21,31,22,30,23 

40 DATA3I.24, Z 1 . LT,, Z2. 26. 33. 27. 32.79,31,29,30,30,26, 30, 27. 29 

SO DATA26, 28. 24. 2B. 23.27.22.20.21.29,21.30. 20, 31. 17,31,16,30,13,29 

60 DATA14.30, 13, 29, 12,29, 1 1,26, 10,2e,9,27, IO, 2h, 11,26,11,24,12,23 

70 DATA! I, 22, 11,20, 12, 19,12, IB, 11,17,10, 16, 10, 14,7, 11, 6, 10. 3, 10. 6, 9 




i DATAS.t 
BO DATA8.B,' 



, 10.9. J 1, 10. 12. 10. I 



,9. 12 



1.12,5, 13 



, 14 



. 16.: 



'.6, 1B.5.20,! 



■XETTE « 



.LE"iF0RI=rjT01O 



iNEXT 



9S DATA2( 

90 ' »*CO0RDONN£ES« ••DES VILLES*-» 

00 DfiTf. ■•ARRAS". -AMIENS", "RUUEN" , "CAEN" . "RENNES" . "ST BRIEUX" 

IO DATA"VANNES", "NANTES", "LA ROCHE 3V0N". "H10RT" , "LA ROCHELLE". "ONGOULEME' 
20 DATA-BORrjEAUX-.-MONT DE MARSAN" , "PAU" . "TARGES" ." TOULOUSE" . ■'CARCASSDNNE' 
30 DATA"riONTPELLIERS"."NIr1ES", "AVIGNON". "MARSEILLE", "NICE", "GAP" 
40 DATA"DRENOE'[.E". "CHAHBERV", "ANNECV", "LVON". "BESANCOM", "VESDUL" 
30 DATA"NANCV"."CHALON". "ANGERS", "POITIERS", "L IM0GE9" , "CMAUMONT" 
60 DATA"LE MANS", "MONTfiUBArr . ■'CAMDK■S , ■. " TULLE". "BOURSES", "MELUN" 
70 DATA-PARIS", "LAVAL". "TOURS" . "TROVES" , "ORLEANS" . "AUR ILL AC" 
80 DATA"CLERNDMT FERRAND" . "EOREUX" , "VALENCE", "DIGNE". "MACON". "VERSAILLES" 
90 ■••COORDONNEES" "DES VILLES •*" 

200 0ATA22.4.2I.5. 19, 7. 13. 7. II. 11,9, 10 

210 DATA9. 11, I 1, 14. 1 I, 16, 13. 17. 12, IB. 14, 20 

220 DATA 17. 23, 1 2. 76. 1 2. 28, 1 3. 28. 1 7, 27. 19. 29 

230 DATA23, 27, 24. 27, 26, 27. 23.29.32.28.29, 28 

240 DATA28. 22.29. 21 , 29. 20. 26, 20. 29, 15. 30, I 4 

230 DATA30, 10,26, 9, 14.13. 15. 1 7, IB. 19, 27. 12 

260 DATA 16. ] 1 , 1 7 , 26. I 7, 74. IB. 2! . 21 . 15. 22. K> 

270 DATA21.9. 13,11,17,14,25,11 .20. 12.20.23 

280 DATA22.20. 1 0. Ei. 26. 24, 30. 26, 26, IB, 20. 9 

30O F-INT<RND(OJ -4B) ; APPOINT (A <F»,B(F> ) 

303 F0RT-0Ta6:F0RI=OTa40:PSET!AIF) .BIF> I -. NEXT I :F0RI-0T040: PRESET I A (F) . B IF I 

■■■> 'IF M I. T:PSET(A(P) ,B(F) ) 

3IO L0CATE6.0:PRINT"OUELLE EST " ; L0CATE6, 1 :PRI 

315 L0CArE6.2l IMPUTC* 

320 IFA»!F)-. C»rHENLOCArE6.0:PRINT"LA VILLE EST :": L0CATE6. 2i PRINT X*: ELGE4' 

321 L0CATE6, 1 : PR IMT X»J LDCATE6, 1 : PR KIT A* (F J : FORI -OTO 1000: NEXT 
375 [FA-0THENPRESE1 (A(Ff .BIFI )ELSEPSET(A(FI .B(F) ) 
326 GOT0300 

40O L0CATE6.O:PRINTX«:L0CAIE6, 1 : PR INTX»: L0CATE6. 2: PRINTX» 

410 C-C*llL0CATE6.'i:f-PINT"VOUS AVE? " J C: L0CATE6. 1 I PRINT "Pt«." I FORI -OTD1O00 
420 NEXT!C.EEP1'),3:L0CATE6.0!PRINTX*!LUCATE6, 1 : PR INTX»: GOTO: 

OOO F-INJ (RNDI0>«4BI:L0CATEB. 1:PRINTA*(F) 

090 ' •••TELEGRAM"" 

lOO '=20: r-I6:00 

HO A»-1N(EV»: IFA»-""G[)r01 1 10 

120 IFBT1C1 [0)"3TMENK"X*llGDT01200 

1 50 IFSTICK I0)"7THE«X-X-llS0T0i: 

140 IFSTICI (0»-3THeNY«V»liO0TO12O0 
150 IFSTICi I0)-lTHENV-V-llG0TOI20O 
160 IFBTRISHI— 180TOI406 
170 GOTO! 1 10 
200 P9E r <X, VI 
210 PRESET<A,Bl 

220 A*XiB-V 

230 hi mi 1 1-1 

(00 II ' All ><->mi.. B(F I 'in i:i .ii ATI 6,0i I fi 

410 [FC(A<F)»X-l)Ofir<B(P>«X*i) iAND(l'<r)-.H,fiin 

B(F)-V*i) >AND<A(F)"XJ<JOTa 

B(Fi»y*i)aoTo; 

B(F)-V-i)OOT02000 
I.iki-v-1 ICOT03000 
1 1 < r > - v « dqoto: 

PERDU ■:!<( i I I". I" 

. i.. i i iTOlOOtNl ' fi ■•* IM I 't; I' /»'■■■" I pit N I 4 '"■! I ',1 I-,"'. 

i lF0RI*OTaiO0iNi ' ri(K)T014B0 

ATI '..'':i I'lui >*:\ 'ii .,ii -,. i m !■ :ni (♦iOOTOiOOO 



C^o-T 



44,, 



n [All ■ 



i I OF- 
• I I AND 

. 1 >., -Hi 

i i Aim 

44 :i .,.i ■ ■ 1 ,,,1,1, 

470 i DCATI ''.":' I :'ii 

•BO i Bl i lAtl i .l"i 

490 i Rl '■' 

5O0 i i ■■ m 



: i ■. ■ iqi ro 



LOCATS6 



liPRJNTX*!) DR] «0TD400il OCATI 8, ■ nn 'QAQNI 



'"(NEXTlCI ' 



i <w 



COSMOS 99 



Lorsque les navettes ennemies s'approchent. gardez vos 
distances sinon le vide du cosmos sera voire tombeau. 

Emmanuel PESTOURI 
Mode d'emploi : 

— 99 : c'esl le nombre d'unites d'energie don! vous disposez pour 
delruire le maximum de navettes ennemies. Afin de connaitre la 
bonne longueur de tir votre FX-702 P afficbe vos positions respec- 
tives, voire vaisseauetant immobile a gauche surl'ecran. Ce dernier 
est gradue en 20 cases de gauche a droite. 

— Lorsque vous pens ez say oir la position du cceur de la navette 
ennemie. appuyezsur ISPCI . Vouspassezalorsalaphasedetir.un 
lir vous coutant 5 unites energetiques. 

— Cependant I'engin adverse peut tres bien tirer pendant la phase 
d'observation. Une seule solution alors, appuyer sur lunique bou- 
ton qui vous protegera : celui qui symbolise le missile lance Mais 
(aites-le le plus tard possible car plus longtemps vous vous protege- 
rez. plus vous perdrez d'energie. Si vous etes tpuche a trcis 
reprises, vptre navette explose et la partie se termine sur votre 
score. 

— Sinon votre tableau de bord vous indiquera lorsque vous tombe- 
rez en panne puis il aftichera votre score. 



LIST 
1 HRIT 26 
3 FRT "EHflfiNUEL P 
ESTOURIE" 

5 PRT "C=)--COS«0 

S 53--(=D" 
16 W IBt=*C=>"iB 
«="<=l)°iE=99.'M 

26 IF E^6 THEN 95 

30 F=INI (MNM15) 

HF VA 1HE1I36 

« FOR E=E 10 6 ST 

EP-I 
50 HRIT 6tPET fltiC 
SR FiBtlCSR It! 
E 
66 H=IHT (RBNH1B8 

) 
76 IF N/2=IHI tN/2 

) THEN 388 
"5 JI=KEY 
86 IF Ji=" " THEN 

118 
96 NEXT E 
95 Willi 36tPRl CSR 

ie;TRHHE" 
186 HRIT 39:PRT It" 
DETRUITES ".Li 
" COUPS TIRES": 
E«C 
116 INP "C=) II 

R ",K 
126 FOR 0=3 TO K-l 
136 IIBIT ItPRT MtC 
SR OlVtiCSR FtB 
I 
HO NEXT 
150 E=E-5tL=L*l 



ISO IF K=F*21HB1T 9 

iPRI BltCSRFt" 

BOUH": T=T+1: 60T 

29 
178 WRIT 9iPRT "C E 

TflIT ";F+2:60T0 
28 
380 6S8 588HNT («/ 

28) 
365 FOR I=F-I TO 3 

STEP -1 
316 IfflIT S.-PRT RtlC 

SR IlZiiCSR FIB 

t 
315 »=KEY 
328 IF Jt=21 THEN 3 

48 
338 NEXT I 
335 60TO 388 
346 FOP, 1=1-1 TO 3 





STEP -1 
350 IIBIT 8:PRT %-■■ 

"ICSR liZJiCSJ 

FiBJ 
355 E=E-2 
366 NEXT I 
378 SOTO 26 
330 6=Stl:IF6=3tNB 

II 9:PRT "BOUH" 

iCSR FiBtiBOTO 

198 
S98 FRI "C=t";CSR F 

iBIlCSR 1816:60 

TO 26 
566ZI=".-!RET 
581 Z»="»"!BEJ 

562 ZI="="iRET 

563 Zt="-"tRET 

584 ;i=":":RET ■ 



SOLUTION DE L'HIPPOREBUS: 



10 FOR 1=1 TO 1 

20 READ I 

30 PRINT CHRtd); 

40 NEXT I 

50 END 

60 DATA 79, 47, 67, 85, 82, it. 78, 47, 49, 




TRAVERSEE DE LA GALAXIE 



Seul a bord de votre Tl 99. parviendrez-vous a traverser 
les espaces interstellaires ? Un jeu sideral et siderant ! 



Mike LAHMY 



1 CALL CLEAR 

2 CALL EH 

■0 CALL SCREENS 
20 PRINT - 




-TRAVERSEE DE LA GAlAXIE- 



30 PRINT : "-UTILISE? LES 1-.ANETTES POUR VOUS DEPLACER 

OUR VOUS AIDER. " : 

60 PRINT :"-■ 'BONUS' ' :SI VOUS AVEZ LE 

70 FOR 1-1 TD 16 

BO CALL COLORd. 16.1) 

90 NEXT I 

9Z PRINT " TIREZ POUR C0I1MENCER ' ' ! " 

*>6 CALL KEY(2,H,K) 

97 [F H-18 THEN 9B ELSE 96 

9Q CALL CLEAR 

100 CALL CHARU30, "FF91*?<?A5AS79aiFF" ) 

110 CALL COLGR(15,7, 1) 

120 COLL COLOR (12. 14. 1) 

ISO CALL CHAB»136,"000OBOFFa00OOO00") 

140 CALL COLOR! 14. 7. 11 

150 REM 

160 RESTORE 

170 K-l 

ISO SC-O 

190 M»2 

200 CALL CHAR!a0,' , 0OOO145A359A7D77"> 

2 lO CALL COLOR 17. 15, 11 

220 CALL CHAR < 126, -FFOOFFOOFFOOFFOO" ) 

230 CALL CHAR<42,"C0F8E08F£0FBC000"> 

240 CJLL COLOR<2,6,1) 

230 CALL CHAR MB, "FFOOFFOOFFOOFFOO"] 

260 CALL COLOR';. 13,11 

270 CALL CHAR!62."FFC;A59999A5C3FF") 

2HO CALL COLOR (4, 11.11 

290 CALL CHAR(64. "Ol 03070F 1F3F7FFF" ) 

300 CALL COLOR'S, 11, 1) 

7-10 CALL CHAR<72, "aOCOEOFOFHFCFEFF-'l 

320 CALL CQL0R!6. 1 1. 1) 

330 REM DESSIN 

340 CALL CLEAR 

350 READ p.u.E.R 

351 CALL SCREEN(2> 
T33 IF B-600 THEN 2000 
360 IF W O THEN 420 
370 IF a O THEN 400 
7.80 CALL HCHARfO.W.E.Ri 
390 GOTO 350 
40O CALL VCHAR(-B,W,£,ft) 
410 GOTO 350 

420 CALL HCHARII. 1,126,32) 
430 CALL OCHAP' I .32. 126.241 
440 CALL HCHAR'24, 1, 126,321 
450 CALL HCHARI], 15. 136.H 
460 CALL HCHARI24. 3.4Z.SC/100 
470 C-3 
4BO Ll-0 
4VO L-12 

500 CALL HCHAR(L,C-1 .32) 
510 L-L-Ll/4 
S20 CALL HCHAR<L,C42) 
530 CALL J0V8T<2,C1.LI> 
540 CALL I EI-<2.XI,X2> 
550 IF >.2' X> THEN 1 4-/0 
560 C-Ctl 

570 CALL GCHAR(L-L1/4.C,ZJ 
5BO IF 7-32 THEN 500 
590 CALL HCHAR(L.C-1,52> 
60m IF C-32 THEN 760 
610 FOR 1-1 TO 15 
620 CALL HCHAR{L-L1/4.C.B0> 
670 CALL SOUNDI-l". -2."> 
640 CALL HCHAR(L-LI/4,C,32> 
65" CALL SOUND (-10, -1,01 
460 NEX1 I 
670 CALL CLEAR 



E-TAPE SUIVANTE 
VOUS AVEZ DES F0MBE5 P 
CARRE ROUGE. VOUS GAGNEZ 1 BOMBE":: 




-VOTRE SCORE EST t" ; CHR» ( 15: 
POUR REJOUER "-(TOUCHEsIl 



710 PRIM! 

715 PRINT 

720 PRINT 

730 CALL 1 EV(1,H,F> 

733 IF H=19 THEN 150 

736 IF H-7 THEN 22O0 

ro T20 

.... I ■;■. 

ro 1 50 

76<> REM GAGNER 

770 SC=SC+IOO 

7B0 for 1*200 TO 2000 STEP 10 

I IHDI IOO, : ."' 
BOO NEXT I 
810 IF INT<SC/4O0)-(SC/4001' >■ 



tv 



-Q9/A^ 



■,64, 



690 t-1 

700 IF "■' IHfN :,; 

701 CALL SCREEN<2J 



S50 DATA 19. I .62. 160, IB, 12,64. 1, IB. 25, 75 

060 DATA -B. 13.62, 1 1,-B, 14,62,5. 12, 15,62, 10,-12,24. t 

El7" REM 

BSO DATA 5, 1, IB. 1B.-3, 10.43,7.?, 19.48, 13. IS, 1.48,9 
D70 DATA -12.9.4B.6, 17,9. 4B, 216. -12.25, 4B. 4,-1 .-l.O.O 

900 REM 

910 DATA -10, 9. 4B. 14. -7, I 2, 48, 17.-1.17.4B.7.-11, 17,40,2. -7,22.48,' 

920 DATA -12,22,48,2 

930 DATA -17,27,48.3,-1,28.48.14,0,-2,0,0 

940 REM 

950 DATA 15,1.62.288.-7. 10,62,8,-1. 13. 46, 7. B. 16,48,20, 10, 16.49,4 
960 DATA 12, 16,43. 4. 9, 26,43,5.0,-5,0,0 

970 REM 

980 DATA -1,12.48,11.-6.20,62.19,-1,29.48,10.-1,-1,0,0 

990 REM 

1000 DATA 6, 2 1. 48. 2B, 7, 20, 48,28. 8. 19.48.23.9. 1 B. 48. 28. 1 O. 18. 48, 28 
1010 DATA -11,19,48,17,-1,-1,0,0 
1020 REM 



1030 DATA -I, 10.4S.6.-B, 10,62.22,7, 12.48. 1.-3. 16. 48. B, - 15. 2B. 43. 1"3. - «. -O.O.O 

1040 FEM ' 

1050 DATA 2, 1,48, 320,13,7,48.32, 14.8,*B.32. :r,. = . *FJ. 32. 18, I. 1 26. 1 "2. 17. 21. ISO, 1,- 

1,-1,0, ■ 

1060 REM 

-- 3,1,48,320,19,1, . , 10.14.1 1 rM,J, -12, 16.48,2,14.18.72, | 

1080 data 14,23,64,1,-12,23,48,2 
1090 DATA -I,-t,O,0 

ItOO REH 

DATA 2, 1,48,236,-12, 11,136.3,16,22, 126,233, 16.20, ISO, 2,-12.23. 126.3, 
.O 

1120 FEM 

1130 DATA -11.9.48,23,-10. 1 3. 4B, 23.-1 I . 15. 48. 23.- 10, 18. 48.23.- lo. 21,48. 23. -11.24 
.48.23 

::-.-■ REM 

1150 DATA -1,-1,0,0,-11,9,48,23,-3,19,48,21,-1,-1,0,0 

1160 REM 

1170 DATA 11. 1.48, 15, 11, 17.48, 15,-2, 16,43,9. -12. 16,48. 12.-1. -l.O.O 

1180 REM 

1190 DATA -2,20.49.5.-5, 16.4B,2.6.17,48.3.B.16.4B.5.5.ia, 150,2. 1 2, 16. 4B, 369,-1 . - 
1,0,0 

1200 REM 

1210 DATA 2. 1,48, 175.9.8,48.8. 11.8,43,8, 13, 1.43.352,8. 16,48,4, lO. 1*6 , 48.4, 1 2. 16. 4 

B.4 

1220 DATA 9,20,48,4. 11.20.48.4. io. 24. 4B. 4,-1. -l.O.O 

1230 REM 

1240 DATA -3, 15.48,20,3,15.48.28.22, 15. 4B, IB. -1,-1, 0,0 

1250 REM 

1260 DATA -17,26. 126.21,-16.27. 126.21.-15.28, 1 26. 2! . -14. 2°. 126. 21 .-I 3.30. 126.21 

1270 DATA -12,31. 126. 12. 13.7.62, 16, 16,7.62, 16,-1.-1,0.0 

1ZSO REM 

1290 DATA 11,1,48, 12, 13. 1,48,12, 11,14,48. 17,13, 14,48, 12.-12,26. 48, 1,-1,-1.0,0 

130O REM 

1310 DATA 12.9,43.4,10, 13. 4B, 2,2. 1,48.256. 12.26,48,359. 11.14.4B. 1 

1320 DATA 11,22,48,1,-1,-1.0.0 

1330 REM 

1340 DATA 2, 1,48,296. 12. 24. 48, 361 . 12. 29, 43, 4. 12, 10,43,8. 1 2, 23, 150, 1 . - 1 . -1 , 0,O 

1360 DATA 11, 1.48. 15. 11. 17,48,2. 11,20, 4B. 5, -2. 16,48,9.-2, 19,48,9,-12,16,49,12, -1 

.-l.O.O 

1370 REM 

1360 DATA 1. 1.4B.320. 13. t, 48,352, 1 2, B, 4B. I , 1 1 . lO. 48, 1 , 1 2, 12. 43. 1 . 1 1 , 14, 49, 1 

1390 DATA 12.16.48.1.12.31,48,1.11.31.150,1.-1.-1.0.0 

1400 REM 

1410 DATA -11, 17.4B.24.-3.31.4B.20.2.30.4B, 1.23.30.48. 1,-1,-1,0,0 

1420 REM 

1430 DATA 2, 1.43,53,4. 1,48,20,3. 1,48.20,5.23.49.29.6,30.43,21.7,21,43.29 

1440 DATA 8. 20, 4B. 26. 9, 19,48.26, 10, 15.48.29. 11, 14, 4B, 1°, 12.31.48,384.6,29, 150, 1, 

-1,-1.0,0 

1450 REM 

1460 2. 1,62.320, 12, 10,62.24, 13. 12, 62, 24, IS, 1,62.300,-1 ,-1.0.0 

1470 F.EM 

1430 DATA -12. 14.4B, 24. -13, 16.48.24.-1,-1,0,0 

1485 REM — TERF1INEE' • ■ • — ^g>_. 

1487 DATA 600,32,0,0 ^__ * f ~" 

1490 REM tir — ^^* W ■ — 

THEM .^m ■■k ^■\1V^ 

Tri ^l^« fr^»^^^ 

1530 CALL SOUND UO. 120*1IO»M1 ,01 ^b*^ 

1540 CALL GCHAR(L.N*1.ZI ^^^ 

133 LI HCHAR(L,H+1, 1361 

1560 IF M-C THEN 1590 

1570 CALL HCHAR(L,H,32) ^^tf 

1560 IF Z-150 THEN 1630 _i M^- 

IF THEM 1620 ^ 8*%1 ■■■* 

-. — \ H|J| ^a^ 

16.0 GOTO f%. iMllr W*^ 

1620 CALL SOUND (IOO. -5, 0) L^ 1 1U 1 1 

1630 CALL HCHARIL.MH.32l ^^« ■ » * 

1640 GOTO 360 <^8# m 

1650 CALL S0UNDI10O.-1.0)' 

1660 I *\ ■-■ 

1670 CALL HCHAR(L,M*1.32» 

16B0 GOTO 560 

2000 REM —MISSION REUSSI"- 

2010 PRINT MISSION REUSSIEE lit:' 1 VOUS AVEZ TRAVERSE":!" "LA 

GALAXIE*'": : : : 

2020 FOR I-l TO 7 

2030 CALL BOUN0<2OO,324,3> 

2040 CALL SCREENU3) 

2050 CALL B0UNDC200, 440,3) 

2060 CALL SCREEN! 161 

2070 CALL S0UUDI200, 356,31 

2060 CALL SCft£EN(7) 

2090 NEXT I 

2100 PRINT "POUR REJOUER ?(T0UCHE)1! POUR ARRETEH " ITOLir.HI : .' ! ' i : : 

21 10 CALL KEV(1,H,K> 

2120 IF H»19 THEN 150 

2130 IF H-7 THEN 2200 

2140 BOTO 21 10 



BLACK JACK 



Si vous savez compter jusqu'a 21 ce jeu est pour vous. Si 
vous savez compter jusqu'a 22 ou plus, alorsmefiance ! 



Alain DUBUS 



Mode d'emploi 

— pour la premiere utilisation, (aire SHIFT Z en mode DEF et entrer 
en memoire les cartes UN. DEUX . ROI. AS 

— pour un nouveau jeu, (aire SHIFT 

P.S. : on peut habiller le jeu. pour cela, supprimer les REM et la 

Iigne980- 

Reserver toujours 112 pas de memoire (AS(27) a AS(40)) 



1SREM hLhIH.DU 
. BUS 
2IREM I61RUE.C 

HhRLEMAGNE 
SlREM 02200. SO 

IS80N8 
4: REM MBI "< I 1 

1,1 K* 
5iX»<9711+X+Z> 
►97<2>INT <X 
/E3>IX«X-E3Z 
10: IF X=OTHEtl 5 
i'.:; \.',-v:r 5:v 
: lilt X:Y= 
INT ABS <1SV 
►28»iRETURN 



?c 



MlW 



20: IF Y=40PRINT 
"UN OU «S ?" 
: INPUT H*: 
COTO 30 
25IG0T0 45 
iOtiF iir="UN" 

LET Y=27: 

GOTO' 45 
SSI IF U» = "AS" 

LET B«UCOTO 

45 
40: GOTO 20 
45SG0SUB 100:S= 

8+4! RETURN 
50! IF Y=40G0SUB 

80 




53IC08UB lOOiT" 
T+ftlRETURN 

601 IF CLET E»=" 
TON"lD«Sl 

GOTO 70 
65i E*""MON" : D"T 

70:PRINT Eli" T 
OThL • "ID: 

PRINT 

RETURN 

801 IF T- ■ =10 

BOSUB 5: IF Y 
•S3LET B-UV 



=40: GOTO 90 

S5:Y=27 

90: RETURN 

100: IF CLET K»li 
GOTO 110 

105:K=J 

110: PRINT "CARTE 
"iKi"= ">H* 
<Y) 

120:fl=Y-26: IF ','> 
SSLET FPlO 

125: IF BLET H=ll 

130! RETURN 

500:"="F=0:Q=0: 
BEEP 3! INPUT 
"CONE I EN DE 
TOURS"SRiU=0 

510:U=U+l:i=0: 
FRINT "****# 
1 tt t 1 i 1 1 * ♦i," 
iPRINT " 
TOUR I " I Ul 
PRINT " 

PRINT " TON 
JEU I" 
320:PRINT " 



550: FUR I=1T0 2! 

COSUB 5: B"0! 
H008UB 20 

I NEXT I: 

GOSUB 60 
540iT«0!PRINT " 

HON in. 

PRIN1 " 

'.■,n:l OR I I Tl i 2: 
COSUB 5:B»0: 



C=0! GOSUB 50 
!NEXT J: 

GOSUB 60 

600: BEEP 5: INPUT 
"CftRTE ?<0/N 
)"!Wt:IF W*= 
"O'GOSUB 5: 1 
=I+l:C=l: 
GOSUB 20: 
GOSUB 60 

610: IF M*«"N" 
THEN 700 

620: GOTO 600 

700: IF (T<«10>+< 

T ■ •*(: :=2I 

I ..ppiur " "I 

"JE REJOUE"! 
GOSUB 5: J=J+ 
HC-Oi GOSUB 

50: GOSUB 60: 

GOTO 700 
730:PRINT "J-flRR 

ETE" 
Run: IF <T=S>*CT< 

2PPR1NT "EG 

ALITE" 
810! IF ' >21>*<S 

-2UPRINT "0 

II i,„i,NE":P=P 
,110 i'.| 

CS .1 '"I 

21 'PRINT "0 
N PEPti" 
8301 II ■ ■ . 1 " 
■ 1 ,-i " ■ . 1 

'. 21)1 

(T>21 ' 'PRIN1 

"in I Ml ,": 

R^P*1 



840! IF «S<=21>» 
CT<=21)*<T>S 

>)+<a<=2i>* 

(S>21 OPRINT 

"JE GnGNE":0 

=0+1 
850iP»P+4*<S=21) 

!Q=Q+4*<T»21 

> 
860: IF U=RTHEN 3 

80 
S70:GOT0 510 
SSO: PRINT " "i" 

RESULTriTs:": 

PRINT " 



PRINT "TU AS 
:":p: "POINT 
S" 
E:90: PRINT "J. Hi 
"101 "POINT 
S" 
ISSI »90*<P>Q)+9 
I i' P u>+92»< 
P=0)!GOTO 10 
C 
900:PRINT "TU HS 
G4GNE°iG0T0 
'■•.11 
?10:PRINT "Jifll 
GflGNE !"! 
GOTO 930 
9201PRINT "EGHLI 

TE" 
930i ENB 

' :".:"FOR K»27 

in 411: INRiil 
Ml'l UNEXT K 
:GOTO "=" ■ 



MISSION 



Detruisez tout ce qui bouge mais ne manquez pas les 
bidons de fuel, sinon votre avion risque de tomber en 
chute libre. 

Felix SAUVAT 

Programme sur : VIC 20 avec extension 8 K ou 16 K. 

• Ce programme doit marcher avec une extention 3 K ou 16 K. 
Commeil ya une reprogrammationde caracteres il faudra passer le 
petit programme - pour 8 K/16 K ■■ en premier. 

• Votre but : 

Vous etes a bord d'un avion. Des maisons, des radars et des arbres 
defilent sous vous. Avec la barre espace vous pouvez lacher des 
bombes pour les detruire ce qui donne cinq points a chaque cible 
touchee (radars, et maisons). Les radars que vous ratez enverront 
des missiles. 

■ la mer visez les bateaux et les bases nucleaires sur 



["explosion nucleaire qui ne doit pas toucher votre 




En passant s 

I'autre rive. 

Attention a 

avion ! 

Auturet a mesure que vous avancez dans votre mission des caisses 

de fuel descendront. Ne les ratez pas. vous en avez besoin pour 

vous ravitailler. 



5 REH PROGRflHHE POUR EXT. BK OU 16K 

6 REH SUR VIC 28 \rr , jy w.,i 

10 REM RETOUR DE L'ECRHN Ell 7'J& f/\\ '\Y. 

11 P0KE642-32 

21 POKES'iSt.S.^i? P0KE.JSSe;6,PEEK<388fi6>ClP123 
^5 REM CHRNGE LE DEBUT DE L'EDITEUR 
31 POKE64e.30 
4>3 P0KE3S866. 150 

■r : . r-E - ' '^v .--■■ -,•:■■■ ::.■ ;:Ki;i i 

51 P0KE9.163-P0KEl.e P0KE2.192-SVSe * M i"\V\ 

30 POKE36369.240 PRINT'TIS MISSION #^% ■^*" 

31 PRINT"IBW 3B1 POUR MONTER" - */* ^^ 

32 PRINT" *D0 3FII POUR BESCENBRE" »«^\» » 

33 PRINT"** 3.1 OflUCHE" __^HJ1 * 

34 PRINT"** 2.9 DROITE" «. »*^l\«3* 

35 PRINT"***aEPRCEi TIRE" -/Tl<l » 
4w P0KE36879.25 P0KE36878, 1 ■^jL.V*' 

45 POKE650.128 lf>#^ 

55 fl=7686 0=6144- I=?167TU*259 ^^ 

56 REM 

57 REM PROGRRIfMHT I ON DES CRRRCTERES 

58 REM 

60 FORJ=GTOG*1016-1«I*I-POKEJ,PEEK'I*25600J-HEXT 

65 0=6144 

70 FOR I -264T0264+78 ■ PEHDF > POKEG+ [ ,F- NEXT 

80 DATH224, 112, 255- 255, 12- 7, 15- 6,112- 204. 255. 254, 24, 224, 192,0 

90 DflTR0, 0,7, 185, 185, 7, 0,8. 255. 255. 0,0. 9, 9,9,0 

100 DSTfll43, 4, 84, 1.68, 56- 120. 255. 8. 28, 62, 0,123, 11 1.125. 125. 12- 28, 41, -50, 28, 8. 8,8 

110 DRTR12, 18- 41, 18. 12, 255, 255. 255. 9. 8. 9. 136,117-40,84,238 

115 DRTH124,68.92,76,92,124.8,B .^ 

120 DRTR12. 30, 191,255,255,255.255,0 — *9^ 

125 DRTR17. 74,39,28,58.255-255.0 _. ^^% W^ 

130 DRTR0. 0-8. 8. 24, 255-125. 69 ^\bkL^ 

135 BRTR24,52. 114-255- 16,255.124,60 ^*^. ■ ■ W %»^ 

140 DRTR9,0,16, 16,24,255, 125,60 ^^. « ■%. J # » 

145 DRTR0,e-0,8,0,0,0,0 M ■ »■ M ^^ 

150 DRTR255, 235-255. 9. 9. 0:0.0 ^ m. Ilk ■ W^ 

152 DRTR0,3.0,0,9,9,0,0 A llallW ^ 

155 DRTR8.23.28.29-23. .20,54, 107 /^lilllll * ^*. g\. 

156 DRTR0, 8,0, 0.28.28. 28. 23 ^^ M llMl* ._. WU 1 1 

157 DHTR3. 28- 23, 28, 28, 20, 54, 107 kT """ » ■ »~ — ^^ M f VJ 

158 BRTR0, 0,0, 8,0, 0,8.0 ■ J^^J -» 111 *^* 

155 DRTR0, 8,0, 8,0, 0,0,0 ^^0? ■% I »%_^ ^^ 
186 REM ^^ ml »^^ 

185 REM IHITIRLISRTION ^i * 

156 REM 

198 P0KE36869.254 

200 Z=7918,Y»7911 -0<7>=7638- D-"7)=32-0-9 RR=1 :S0=36875 FU"308:Sl-3 

203 TI*="000800" 

210 F0PR=lT06-0CR) = IHT(RHD<n*18)*2-t8932 H''R> = IHT''PMD' i.>»2>+38'HEXT 

250 REM ♦******+***««*«•*» 

251 PEI1 * DEBUT PROORRMME* - 
2"jZ REM *«•>***«*•*******:•* 

300 pprMT ,, nciKHiiannoMUMnawiBitt********»**i*s***t*** " .print "«" 

350 FOPB*flflTO50;POKE36875, 130 
355 P0KEX.32 PQKEX.32 
360 X=X+.5-Y=V*.5 



j = POr-EBH-22,32 



l-POKESO,135P0KES0.8 



378 P0KEX.33 PQKEV.34 PC*EX*30720.6 POKEV«30728,6 

338 IFX>»7336THEi;P0KE>;,32 P0KEV.32 V=7323 X-7922 

330 IFVRL'.TI».O2?RilDED=0THENEri*l I'F = INT > c»Ij> P»22-*7680 Tit =" 900860" 

395 IFED=1TNEMP0KEDF.32 DF=BF*21.5 KK.FEE<'DF> P0KEDF.42 *">££>. 3 e729. 9 

410 oosuBisee 

411 REM 

412 REH LECTURE CLRV1ER 

413 REM 
415 OETRI 

420 IFfl«=" 'Mir9O-8flKDO>0THEHBN"X*22 E0=1 FU-FU-5 0-0-1 

430 IFfl* = "Q ,, RNDX-22> = 7762THENP0KE}<,32 POKEV. 32 : X-X-44 Y-Y-44 

440 IFfW="R"ftNEW+22'>7966THEHP0HEX,32 : POKEY. 32 -X-X*44 Y=Y*44 

445 IFR*=" . "RND-:- I > = 7792THENP0KEX . 32 POKEY . 32 ■ X-X-2. 5 VV-2. 5 

450 IFR*:" . '■RNDX+K-79S6THEMP0KEX ■ 32 POKEY , 32 X = X*2 : Y«Y-2 

455 POKEX, 33 POKEY. 34 : POKEX*30720, 6 ■ POKEY-30720, 6 

430 F0KECKRJ.32 OCR >=3853 Df fl " INTCPMP-: n«3>*38 POKEO'Ri . DCRy P0KE0<n>4-3S729,4 

500 REM 

510 REM 

515 REM 

-;f'-; F0RR = 1T06-FU=FU-1 

632 IFFU'>8THENFU=0 GO5UB1590 ■ 00T01?88 

603 IFLF=XORDF=VTHENDF=a EX=I EB=0 

604 IFKK=33ORr.h=34THENKK=32.ED=0;EXBl 

605 IFEX=1THENE>-:=0O=3 F0RII = 1T0159-FU-FU+1 :OOSU61509 POKESO. 130 POKESO.0 NEXT 
609 IFKK=36THEMf.K=32 ED=B P0KEDF.36 P0KEDF+38726/3 

51B POKES053.32 P0KE36875-131 

629 IFBO=1THEHPOKEBN.32 BH=BN*22-.5K=PEEK<INT';BN>/ P0KEBN.35 POKEBN'30728.2 

624 REM SCORE 

625 IFBO=1THEHFO*E36S76.250-POKE36876.8 

640 IFK"36RHBBO=1THENPOKE36377.130 ■ POKEBH-22. 37 POKEBii.K ■ pr.f.'E36877.8 

669 IFK=40RNBJK<2THEHSC=SC*SI .POKE36874.2S0 P:'E3€=74,0 K=32 

665 IFK=40fiHBJK>=2THENSC«SC+SI : P0KE35S74 . iyj pry£36374,0. K-32-GOSUB2980 

700 IFK = 38F--m;.JI '.iri-H!-=C = SO*Sl POKE36374.200 POI'E363?4,0 K»32 

705 1FK=38RHDJK>=2THEHSC=SC*3I P0KE36874 . 280 ■ PQKE36874 , 9 k=32 O-T;ijB20e8 

718 REM 

711 REM DEPLRCEMENT W DECOR 

713 REM 

720 IPK=36THENK=32 P0KEBN+ 38729, 5-1 

748 IFBIK7383THEM305 

741 REM SI B0MBE=CHO3E 

750 F0RUU-170S 

760 IF0<UU>=IIIT(BH>THEHD<UU)"4l : BO- 

770 NEXT 

800 IFBO=0THENBH=8 

805 IFMIO0THEHJH=JH+1 POKEMI ,32KG=F'EEK(MI*1) ^MI«MI*1 'POXEMI-64 PDKEMI*30720,0 

906 IFJH>=21THEHJH=8 POKEMI ■ 32 ^ MI-0 
807 IFKG=33ORKG=34THEN1900 

810 IFOCR)-lO8032THENPOKEO(flj.32:O<R>-O(R)-l:POKEOCR)<D< 

0850 

830 IFO<R)-l=8832THENPOKEO(fl;,32;O'.R)-8053 D(R) = INT<RNBC J 

840 IFB>30THENDCfl>«32 

650 [FPEEi'-:3033.'=4r'SNIini="0THENMI-<IHT(RHDtl)»3^ + l>122+7768 

855 IFI)F=XORDF=YTHENDF=0 EX- 1 ■ EB=0 

309 NEXT -NEXT JK=JK+1 

305 IFJK=1THENSI=6 GO3UB1010 

386 IF.JK=2THEN5i = 10 C-OSIJB1010 

907 IFJK=3THEHJK = SC=3C*15 : P0KE36876. 254 - P0KE36876. 8 RESTORE G0T078 
915 L=8,F0RR=lT0S-L«L+3 

920 P0KE0(R>-32 

938 O(fl)=INTCRNDClJ*4>*L+8032 

948 DCfl)=IHTCRHD'. 1 ;»3;*38 ■ NEXT 

980 GOTO350 

1018 flfl=30 

1820 FORI=237T0287-i'48.RERDF:POKEG*I.F NEXT 

1040 REM 

1041 REM CHRHGEMENT DECOR 

1042 REM 
I860 RETURN 
1100 F0PPP=1T06 

1110 O(PP>=3054-<PP*2) D(PPl = INT' .RHIK.l'.i*3> + 38 NEXT 
1120 GOTO350 

1500 FRIHT'-T -JpRIKT-n 8";SC;" FU"FU;0 RETURN 

1308 REM EXPLOSION 

1383 P0KE36377- : FORDD-130TO2ee?TEP2 ■ POKESO. DD ■ NEXT 

1L-0V1 FrRCC=H07 PuKE»3B7£e.Li: POf'.EY + 3072e, CC FQPTT= 1 Tn I Cirj NEXT NEXT 
1910 P0KE36377.135 POKE36879.RFORUU-1TO100.NEXT 
1920 POKE36875,0:FOi-:;- - 

1325 P0KEY-32-P0KEX,32 

1930 P0KE36879.25 -PRIMT-'WOWmwiS FIN" 

1935 FOROG=1TO2080 NEXT 
1940 GETR*-IFRJ= , '"THEN1940 
1950 RUN 
2008 REM 

2095 REM BOMBE RTOMIQUE 
2006 REM 

2610 P0KE36S77.268 FORC0=3^4S8T03S751 PuKE368?7 . [NT'.RND' 1 - ♦ Vy . + l y PCifE"'.'"i ■ NF,:T 
-■■" P0KE36S37, 38 ■V'-/=192 -F0RII = 1T02 N=BH-M=BH*1 



R)POKEO<Rjt30728,4 GOT 
)*3>*38 



2--3.1':' F0P1--1TO4 FOKEN . YV ■ POKEM, VV 
203y F0RI = irC'i FUI EM. VV POKEM, VV 
2840 FijPI = lTu2 POKEM. VV POKEM, VV 
.ioV:0 FORI = 1 ru J ■ Put EN, VV ■ POKEM. VV 
2068 F0RI = 1T04 POKEN.W POKEM. VV 
2070 F0Ri = iT06 P0r-.Eli.7V POKEM, W 
2830 F0PI=1T07 FOI EM, VV POKEM, VV 
2058 FOF:l=--lTu-- POi EM.VV POKEM, VV 
2108 F0RI=1T04-F0K£II.VV POKEM. VV 
2110 FORI =1 Tu3 Pus EM.VV POKEM, VV 
2128 VV=32 NEXT 
2125 IFREEK(X>=32OPPEEK<x:>=32THEM1900 
2136 POKE36877-0 RETURN 



M=N-1 :M=M*1 MEXTN-BH-22 N=BN*l-22 
N=N-1 ;M=M+1 NEXT N-BN-44 M=BN*l-44 
NoH-1 -M=H*1 -NEXT H=EN-66 H=BH>l-66 
N=N-22 : M=M-22 ■ NEXT 



N=N-1 M=M*1 NEXT 

N=N-1 11=11+1 NEXT 

H=H-M1=H'I HEXT: 

N=N-l -H=»H+l NEXT 

H=H-1 ^IHl NEXT 

n=n-i M=M+! me::t 



154 H»BH+1-154 
BH-176 H-BNM-176 
'6 M=BN+l-l;'6 
FH-22« M-BN+1-226 
BN-242 H-BN+1-242 



-.,[■■;. 



REDEFINITION DE 
CARACTERES 




Comme vous le savez. I'Oric ne manque pas de carac- 
teres. Ce programme vous aide a mieux definir sinon la 
personnalite de votre Oric. du moins son jeu de 
caracteres. 



Alain AGUSSOL 



0* xC 




Mode d'empioi : 

Le programme REDEF a pour but d'aider leprogrammeur lorsdela 
creation de caracteres speciaux. 

Apres avoir tail RUN, le program me demandelecaraclere que vous 
desirez redefinir (vous avez la possibility de I'entrer sous son code 
A.S.C.I.I.,entapanl - RETURN ■■) Ensuite. le mode d'empioi appa- 
ralt a I'ecran. Le caractere elan! rededm, vous tapez ■ RETURN • 
C'esi alors que huit valeurs s'inscrivenl a ia gauche du caractere ; 
ces huit valeurs peuvenl etrc utihsees dans un programme, de la 

manlftra sulvante : 

READ V : FOR J .^ TO 7 : READ D POKE 46^8jS I V^8-| J,D 
NEXT J DATA (code A S.C.I. I. du caractere <'i redefinir ), (T'valeur). 
(2* valeur). (3' valour), ... (8' valeur), 



2^0 REM 

210 REM — INITIALISATIOH — 

220 REM 

l'j<6 DIM D(90) : FOR 1 = 1 TO 8 : READ K, 

R ' D(K) ~R I S'EXT 

2i.0 FOR J=0 TO 5 : READ D : V(J)=D : N 

250 P=48775 

300 REM 

505 REM — SAISIE DU CARACTERE -- 

J10 REM 

320 CLS : PAPER0 : I UK 2 

330 PRINT : PRINT : PRINT 

3<i0 PRINT "Entrez le carictero que vou 

8 desirez redefinir." 

350 PRINT : PRINT"S1 vous preferez l'e 



sous i 

I PRINT »i 



I. S.C.I. I., tapaz 



: INPUT "Code A. S.C.I. I. ";C 
390 IF C<32 OR C>255 THE:: print : PRIN 
T "Entre 32 et 255 n.v.p." : OOTO 350 
(.00 C» : Ci)R»CC) 

y/H REM 

C ,I0 JhLH - AFFICHAGE DD MODE D'EMPLOI - 

520 REM 

530 CLS : LORES : INK 2 

5i.0 PRINT "Cnractere :" ;C% 

550 PRIKT "Code A. S.C.I. I. :";C 

560 PRINT "Pour deplocer le curBeur do 

no le" 

570 PFIHT "rectariKle, utilizer 1*8 flo 

5G0 PRINT "Pour le deplacar »n dlngonn 

590 PRINT "utlllMr lee Couchee 'Z'.'X 



600 PRINT "Pour que le curaeur lal 

une trace, taper 'N'." 

610 PRINT "Pour qu'll n'on leiaee 

toper 'B'." 
620 PRINT "Quend le cnractere aero 
mine, tapoz'RETURN' ." 
630 PRINT "Si voue deelrez effacer 
cnractere, tapez 'CTRL V ." 
6^0 PRINT'-"Pour redeaalner le cora 

d' origins, tapez 'DEL' ." 
650 PRINT : PRINT 

700 REM 

?I0 R!M — DE33IN DU RECTANGLE « 

720 REM 

730 FOR 1=1.8775 TO 1,9055 STEP t.0 

7£.0 FOR J = I TO 1*5 

750 POKE J, 1? 

760 NEXT J 

770 NEXT I 

760 IF R=l THEN R=0 : RETURN 



I REM -- DES5IN DU CARACTERE -- 

I REM 

I FOR It i, 8775 TO 1.9055 STEP (.0 

I T : ['KrK</,606O/(C«).(<I-'.fl775)A0» 

I FOR Jel TI I'5 

I IF TOV(J-I) THEN FOKE J,.?0 : T=T- 



■■,',• REM 

910 REH -DEMIMOBS riANS Lt KECTANC1.E- 

915 REM 

920 REPEAT 

930 OET AS ! A=ASC(At) 

9i,0 IF E=0 TI .EN POKE P,17 

OH II-" B 1 THEN POKE P,20 

960 IF A>7 AND A<12 OR A=(.6 OR Halt? OR 



A=88 OR A=90 THEN P=ptD(A) 
970 IF PEEK(P)=16 THEN P=P-D(A) 
980 IF AJ="B" THEN E=0 
990 IE A»="N" THEN E=l 
1000 IF A-12 THEN R=l : OOTO 70t' 
1010 IF A=l£7 THEN 700 
1020 POKE P,23 
1030 UNTIL A=H 

1100 REM 

1110 REM — REDEF. DU CARACTERE -- 

I I ?.$ REH 

1130 FOR 1=1*8775 TO *V9055 STEP 1,0 

II (,0 T = 

1150 FOR J«l TO 1*5 

1160 IF PEEK(J)=«f THEN T-T«V(J-I ) 

1 170 NEXT J 

H80 PRINT 3PC(8):T 

1190 POKE (i,60e0'{GI8)'((I-'.'''.'7 r ! )A0)) 



1^/0 NEXT 1 

1300 REM 

1^10 REH — EST-CE EINI 

1315 REH 

1 '. "/ PRINT : PRINT "Con 

" 1 (JET Rt 

1350 IF R8 = "0" "PHEN CLS 

1 J',0 IF Hf = "N» THEN RUN 

1350 PRINT '"O" ou <H' e 



11,00 REM 

11*10 REH DATAe 

H20 REH 

11*30 DATA 8,-1,9,1.10,1 
1.7,1.1 ,8ft, -3*1, '10, -'.1 
1V,0 DATA 'i.'.b'-.,' 1 .'..'. 



SAVE-DISK -tfcs 80 



La sauvegardede programmes est souven tun probleme : 
plusieurs copies d'une meme disquette, ca coute cher. 
Utiliser des canettes. c'est lent et pas forcement moins 
onereux. 

La solution proposee ici utilise pourtant des cassettes, 
mais la vitesse de lecture oud'ecriture a ete multiplieepar 
5 1/2, ce qui reste tout a fait fiable avec le magnetophone 
standard (CTR 80) et les TRS 80 equipes des dernieres 
ROM (message MEM SIZE ?au lieu de MEMORY SIZE?). 
Leresultat ? Une cassette C 60 peutcontenir8disquettes 
40 pistes, ce qui donne satisfaction a la fois pour le temps 
de sauvegarde, rencombrement, ie cout (rapport de 1 a 



10 cette fois, ce qui devient interessant). 
N faut cependant utiliser des cassettes d'exceflente qua- 
lite ({'utilise des TANDY ■■■ superstage gold » C 45 ou C 60 
a I'oxyde de fer), baisser tres legerement le bouton de 
volume en lecture et, dans le cas de C 60, les (aire defiler 
plusieurs fois avant leur premiere utilisation (le moteur 
du CTR 80 doit etre un peu faible). 
Sous reserve de ces precautions, la fiabilite est tres 
bonne. 

Bernard DUPIN 



L'utilisation de SAVEDISK est tres simple : 

— Pour sauvegarder une disquette, il faut charger et executor 
SAVEDISK puis repondre a toutes les questions qui apparsusent , 
tout est automatique Attention cependant, la telecommande du 
magnetophone doit etre branchee et celui-ei doit bien entendu se 
Irouver en position enregistrement. 

— Pour recharger une disquette, H taut lire la cassette avec la 
commande SYSTEM classique. Le COM a donner est celui qui a ete 
declare lors de la sauvegarde. II ne reste plus qu'a repondre aux 
questions {formatage optionnel. mise en place de la disquette). 
Tout est automatique. et c'est tres spectaculaire. La encore la tele- 
commande du magnetophone est tres utilisGe. En cas d'insucces 
(message d'erreur), recommencer avec un niveau de lecture diffe- 
rent. La fiabilite est tres bonne si vousrespectezlout cequiaetedit 
et si les tetes de votre CTR SO sont propres. Chose curieuse, les 
disquettes •■ speciales ordinateur» (notamment TANDY C20) au 
chrome ne donnent pas de tres bons resultats. 

Qui sait ? Ce logiciel va peut-etre reconciher les utilisateurs de DOS 
en tout genre avec leurs magnetophones a cassettes. Attention a la 
poussiere qui les recouvre ! 



00190 
00203 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
30230 
00290 
00300 
00310 
00320 
00330 
00360 
00350 
00360 
00370 



LA DISQUETTE COMPLETE PRECEDEE D' UN CHARGEUR 
ENTIEREMENT AUTOMATIQUE TIENT SUR 129 P09ITI0NS 
RU COMPTEUR DU CTR80 

CELA REPRESENTE UN TEMPS D' ENREGISTREMENT OU DE 
LECTURE DE MOINS DE 7 MINUTES 



LE FORMATAGE DE LA DISQUETTE CHARGEE PEUT ETRE 
EFFECTUE AU MDMENT DU CHARGEMENT 



CHARGEUR 



5300 


55 


00450 


WBUF 


DEFB 


55H 


5301 


4E 


00460 


CASNAtt 


DEFM 


* NONAME 


5307 


3C 


00470 




DEFB 


3CH 


5308 


01 


004B0 




DEFB 


1 


5309 


E241 


00430 




DEFU 


41E2H 


530B 


E9 


00500 




JP 


CHL) 


530C 


0C 


00510 




DEFB 


0CH 


530D 


3C 


00530 




DEFB 


3CH 


530E 


EB 


00540 




DEFB 


FINLDR- 


530F 


1153 


00550 




DEFW 


LOflDER 


5311 


3E04 


00570 


LOADER 


LD 


A. A 


5313 


D3FF 


00580 




OUT 


(0FFH), 


5315 


3EC9 


00590 




LD 


A. 0C9H 


5317 


32E241 


00600 




LD 


(41E2H) 


531A 


21B257 


00610 




LD 


HL.CDPY 


531D 


11F802 


00620 




LD 


DE, BUFF 


5320 


E5 


00630 




PUSH 


HL 



REMISE EN ROUTE 
DE LA CASSETTE 
REMISE EN PLACE 
DE "SYSTEM" 
LECTURE DU 
PROGRAMME DE 
CHARGEMENT 



LECTURE D'UN BLOC A 2700 BAUDS SUR LA CASSETTE 



5321 


AF 


00BS0 RDBLDC 


5322 


32FD53 


00690 


5325 


3E3C 


30700 


5327 


323E3C 


00710 


532A 


CD5B53 


00730 RBL10 


532D 


3EA5 


00740 


532F 


B9 


00750 


5330 


20F8 


00760 


5332 


CD5B53 


00780 RBL20 


5335 


71 


00790 


5336 


3AFD53 


00813 


5339 


86 


00820 


533A 


32FD53 


00830 


533D 


23 


00B40 


533E 


IB 


00850 


533F 


7B 


00380 


5340 


B7 


00870 


5341 


20EF 


00880 


5343 


CD5B53 


00900 


5346 


3AFD53 


00910 


5349 


B9 


00920 


534A 


204e 


00930 


534C 


3A3F3C 


00840 


534F 


EE0A 


00950 


5351 


323F3C 


00960 


5354 


7A 


00970 


5355 


B7 


00980 


5336 


20 DA 


00990 


5358 


D3FF 


01010 


535A 


C9 


01030 



(CHKSUM), A 



OCTET DE SYNCHRO 



A, (CHKSUM) 
A. (HL) 
(CHKSUM). A 



N2, RWERR 

A. (3C3FH) 

0AH 

(3C3FH). A 

A.D 

A 

NZ. RBL20 



FIN CHARGEMENT 



OUT (0FFH), A 
RET 
LECTURE D'UN DCTET A 2700 BAUDS 



535B D5 

535C 1508 


01080 LRDBYT 
01090 


PUSH 
LD 


DE 
D.8 


535E 3E04 
5360 D3FF 


01 110 
01120 


LD 
OUT 


A. 4 
(0FFH) .A 


53E2 DBFF 

5364 17 

5365 30FB 


01140 RDB10 

01150 

01160 


IN 

RLA 

JR 


A. (0FFH) 
NO, RDB10 


3367 0634 
5369 10FE 


01180 
01 190 


LD 
DJNZ 


B.52 

* 



53EB 0609 


01210 


RDB20 


LD 


9. 9 




53GD 3E04 


01220 




LD 


A. 4 




536F D3FF 


01230 




OUT 


(0FFH), A 




5371 DBFF 


01250 


RDB30 


IN 


A. (0FFH) 




5373 17 


01260 


RDB40 


RLA 






5374 03 


01270 




DEC 


B 




5375 2805 


01280 




JR 


7, RDB60 




3377 30F8 


01290 




JR 


NC, RDB30 


J 


5379 IF 


01300 




RRA 




W A 


537A 1SF7 


01310 




JR 


RDB40 


/&\lh 


537C 0614 


01330 


RDBB0 


LD 


B.20 


^iYpNil 


S37E 10FE 


01340 




DJNZ 


• 


( r\ \ 


53B0 CB19 


01350 




RR 


C 




53B2 13 


01360 




DEC 


D 




53B3 20E6 


01370 




JR 


NZ. RD820 


/Vt?=^. \. ^ 


5385 DI 


01390 




POP 


DE 




538B C9 


01400 




RET 








01430 


1 SORTIE D'UN 


MESSAGE SUR 


L' EC RAN J/T~f C 


5387 7E 


01450 


MSG 


LD 


A. (HL) 




5388 23 


01460 




INC 


HL 


//Ls&:\_ W va? 


5389 F5 


01470 




PUSH 


AF 


/^■JiHJ ^ 


538A EB7F 


01480 




AND 


7FH 


iH/^liL/lr-fl 


53BC CD3300 


01490 




CALL 


33H 


53BF Fl 


01500 




POP 


AF 


i /)) fr/r^rr- 


5390 07 


01510 




RLCA 




l P* /fc^^T*J 


5391 3BF4 


01S20 




JR 


NC. MSO 


A i iil^ ^^ 


5393 C9 


01530 




RET 




r—r-^J ^~ '— 




a-C? xA 9ff! /R. 


5394 21B853 


01550 


RWERR 


LD 


HL.MSG1 


ff( flWiP 


5397 1803 


01560 




JR 


SYS05 




5399 21CA53 


01580 


SYSTEM 


LD 


HL.MSG14 


MM 


539C AF 


01590 


SYS05 


XOR 


A 




539D D3FF 


01600 




OUT 


(0FFH). A 




539F CDAD53 


01810 




CALL 


ENT05 




53A2 3AEC37 


01B20 


SYS 10 


LD 


A, (37ECH) 




53A5 E690 


01630 




AND 


80H 




S3A7 28F9 


01B40 




JR 


Z.SYS10 


\*<i ) QJ 


53A9 C7 


01660 




RST 







53AA 21E453 


01680 


ENTER 


LD 


HL. MSG6 


t&aT 


53AD CD8753 


01S30 


ENT05 


CALL 


MSG 




53B0 CD4900 


01700 


ENT10 


CALL 


49H 




53B3 FE0D 


01710 




CP 


0DH 




53B5 20F9 


01720 




JR 


NZ.ENT10 




53B7 C9 


01730 




RET 






53B8 0D 


01750 


NB01 


DEFB 


0DH 




53B9 43 


01760 




DEFM 


'ERREUR DE 


LECTURE' 


53CA 0D 


01770 


MSG 14 


DEFB 


0DH 




53CB 4D 


01780 




DEFM 


'METTRE LE 


DISQUE SYSTEME ■ 


53E4 2D 


01790 


MSG6 


DEFM 


'- PUIS PRESSER ENTER' 


53F8 8D 


01800 




DEFB 


8DH 




53F9 00 


01820 


FINLDR 


DEFB 





SOMME DE CONTROLE 


53FA 78 


01830 




DEFB 


7BH I 


FIN DE CHARGEMENT 


53FB 1153 


01940 




DEFW 


LOADER 1 


ADRESSE D' EXECUTION 



018B0 CHKSUM DEFB 



ECRITURE D'UN BLOC A 2700 BAUDS SUR LA CASSETTE 



53FE 


F3 


01910 WBL0C 


DI 




33FF 


3E04 


01920 


LD 


A. 4 


5401 


D3FF 


01930 


OUT 


(0FFH). A 


5403 


AF 


01940 


XOR 


A 


5404 


32FD53 


01950 


LD 


(CHKSUM), A 


5407 


3E2A 


01960 


LD 


fl. *** 


5409 


323E3C 


01370 


LD 


(3C3EH), A 


540C 


3E3E 


01380 


LD 


A. ' )* 


540E 


323F3C 


01390 


LD 


(3C3FH), A 


5411 


05 


02010 


PUSH 


DE 


5412 


113200 


02020 


LD 


DE.50 


5415 


0E00 


02030 W8L10 


LD 


C,0 


5417 


CD4F54 


02040 


CALL 


BUBYTE 


541A 


IB 


02050 


DEC 


DE 


541B 


7A 


02060 


LD 


A.D 


S41C 


B3 


02070 


OR 


E 


541 D 


20F6 


02080 


JR 


NZ. WBL10 


541F 


0EA5 


02030 


LD 


C.0A5H 


5421 


CD4F54 


02100 


CALL 


BWBYTE 


5424 


Dl 


02110 


POP 


DE 


5425 


4E 


02130 UBL30 


LD 


C. (HL> 


542E 


CD4F54 


02140 


CALL 


BUBYTE 


5429 


3E00 


02150 


LD 


A,0 1 


542B 


3AFD53 


02170 


LD 


A, (CHKSUM) 


542E 


B6 


02180 


ADD 


A. (HL) 


542F 


32FD33 


02190 


LD 


(CHKSUM). A 


5432 


4F 


02200 


LD 


C, A 


5433 


23 


02210 


INC 


HL 


5434 


IB 


02220 


DEC 


DE 


5435 


7B 


02230 


LD 


A.E 


3436 


B7 


02240 


OR 


A 


5437 


20EC 


02250 


JR 


NZ.UBL50 


5439 


CD4F54 


02270 


CALL 


BWBYTE 


543C 


0602 


02280 


LD 


B.2 t 


543E 


10FE 


02290 


DJNZ 


• 1 


5440 


3A3E3C 


02300 


LD 


A. (3C3EH) 


5443 


EE0A 


02310 


XOR 


0AH 


3445 


323E3C 


02320 


LD 


(3C3EH).A 



Suite page 12 



INDIANAPOLIS 



Une course contre la montre a bord d"un bolide pour les 
conducteursauxnerfsd'acier. 



Francois BARRAUT 



II y a trois parcours differents et six vitesses differenles 

Vous pouvez diriger le sprite a I'aide des touches : 

■ Z » : le sprite se deplace vers la gauche de I'ecran. ^88 

« X » : le sprite se deplace vers la droite de I'ecran. ■ 

» V * : le sprite se deplace vers le bas de I'ecran. ^^^^ 

» G ■• : le sprite se deplace vers le haut de I'ecran. ^^ 

Lorsque vous avez termine le parcours. c'est-a-dire lorsque vous 

aurez depasse la ligne d'arrivee (couleur differente) alors, appuyez 

sur la barre d'espace, ainsi voire temps sera affiche: il ne vous 

restera plus qu'a I'ameliorer. 

Face B de la cassette ; « Bataille dans la Baitique ». 

Ce jeu consiste a detruire le maximum d'helicopteres avec seule- 

ment 30 missiles. 

Vous tirez a i'aide de la barre d'espace. 

Attention, les helicopteres tirent de facon aleatoire, de plus ils 

peuvent etre lonces sur fond noir. 



o**<f 




. 9 FRUIT":! P=0 

10 PRINTCHPIOl ■ POKES Si**, 16 F-i>-E5i23i ■ 

20 PRINT" StH'JISISSEZ VOIRE FORCE 

21 PRINT":) 1 OU 2 OU 3 

22 PRIHT"3 4 OU 5 OU S 
25 IHPOTP:FRIHT"rr 

40 PRINT" SCHOISISEZ VOTRE PfiRCOURS" 

41 PR.iriT-a 

42 PRINT'S 1 

43 PRINTS 2 

44 PRINT" a 3 

45 IHFUTL 

46 IFL=1THEH500 

47 IFL=2THEN608 

48 IFL=3THEN800 
56 PRINTS" 

160 V=53248 POKEV+21.1 PuKE2040,13 

les Ti** a 88a»e n 

110 FORQ-eTOSt-KEHl-O FOKE332*U.O -nexto 

112 POKEV+2.259:POK£V+3.6e 

120 0=255 W=59 

130 F0RE=G TO0STEP-P 

140 PGKEV.E'POKEV+l.U 

142 IFPEEK<S3279>=1TMEN?80 

150 GETfl» 

160 IFflf="V"THEN280 

170 IFR*="G"THEN300 

130 IFfl*="X"THEH400 

181 R=U T=E V=U 

182 IFfi*=" "THENPRINTTI* -END 
130 N.EXTE 

200 FORR=WTO250 STEPP 

210 POKEV.E PQKEV+l.R 

211 IFPEEK<:5327S> = ITHEH700 
220 GETR* 

230 IFH*="Z"THENI30 
240 IFflJ="G"THEN300 

250 IFfl*="X"THEH480 

251 MQ=EW=H 

252 IFfiJ=" "THENPRINTTI* END 
260 NEXTR 

380 FOFV=RTO0?TEP-P 

310 POKEV.T P0KEV+1.V 

311 IFP£EKt53279^=lTHEN700 
320 GETfl*-IFH»="Z"THEN139 
330 IFH*="VTHEN200 

340 IFFi*="X ,, 7HEN400 

341 E=T U=V : i5»T ■ R-V 

342 IFfl*=" "THENPRIIiniJEND 
350 HEXTV 

400 FORT=ET0255£TEPP 



FOKEV.T P0KEV*1.R 

IFPEEK',53279) = 1TH£N709 

GETR* IFfl*="Z' , THEN130 

IFfl*="VTHEN200 

IFfl* = ' , G"THEH300 

0=T W=R E=T 

IFR*=" '■THENPRINTTI* END 

HEXTT 

END 

FORO0TO333PRINT" ";:NEXT 

F':pri=lu2iTi:ilJ>S4STEF40 FO'r E0. 1*2 

FOF':'=1147T01S2rSTEF4e-pr3KEGi.l82 

FORO-127ITO19913TEP40:POKEQ»I82 

FORO=1154TO1354STEP40 FOKEQ. H\: 

F0f0=ier5Tri;555;.TEF40 POKES, 102 

FCR.j=l-:--:F;TiM l?3^TEP4y pr>:£n. ; ;", : 

FORQ=13H;-TO15?:-5TEP40:POKEQ. 102 

F':-PM=n62T01f-;,i?2iTEP4i,j prj £0, ;ti- 

FC?v=1633TO184:<-TEP40 FmEQ, 102 



I F0R0=16 
F0RQ=H 
: F0R'3 = : 
: F0R.Q=1 
i FCPiJ=i 






512 
513 
514 
515 FOR0=1325T01335 POKEO- 102 ^HEXT 

516 
517 



POKEO. 102 
POKEQ.102 

102 NEXT 
102 NEXT 
102 NEXT 



NEXT 

NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 



: FijRG=l 49,17 j-iS* 
■ F0FO=1511TO15I8 

' FCiFQ=i^06TOlt.'V: 

' F.:.RC-=iir e :.Ti:ii6tf:-: 

:■ F0F0=lf.s.3T'M -?■.-■:. 
. FCRa=l34iTuiS50 
: FijEQ=1934T02yl 



POI'EO- 182 -NEXT 
P0KECMO2 NEXT 
POV.EC',102 NEXT 

Fn>.E.:-. 102 NEXT 

FOKEO. 102 NEXT 

FGKEu, 102 NEXT 

POKEO, 162 NEXT 



: F0F.'3 = 354 4 1T05544T. POKEO, 1© NEXT 

? GOTO 108 

i F0R0 = OT0?i'i PRINT" " . : NEXT 

. FORQ=1024T01?J4STEP40POKE^: 102 

: FORQ=1143TO15&3STEP40 POKEQ-K'2 

. FOFQ=I137TO1S375TER40 P>jK.EQ. 102 

I FORQ=i322TOl402;-TEP40 ROKEQ , 1 02 

; F0F0=li02T01?7.:^.TEr-40 FOKEQ-102 

' F.>|-.= :■■■'--: Ti i.l4-;orLr-4.J h .. . L.J ■ \--:2 

' FOPiJ=152iT'j!i54L=iATEP40 PCS Eft. 102 
I F0RQ"te55Ta2ai5STEP49 PGKEQ, 162 



r EO ■ 



: NEXT 



NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 



€13 

614 
628 



F0P-5=1F. 
F0K: = 1 j 
F ORG = [?: 

F0F0=r-; 



I POKEO, 102 NEXT 
. PCS EQ, 102 -NEXT 
' POKEO. 102 NEXT 
I POKEO, 102: HEX! 
POKEO, 102 -NEXT 
! POKEO, 102 NEXT 
LSTEP49 POKEO, 102 




630 FC*0"5544iT055445 FOKEO-2 l€XT 

659 GQTO10B 

700 P0KE54276,129 P0KE54296-15 P0KE54Z77, 136 POKES*; 

710 P0KE54273.244 P0KE54272, 183 

■-: ■ .- . -.■■ . ■•■! ' 

730 P0KE54236.5 P0VE54276. 120 
740 GOTO 1 20 

750 PRINTTIJ • 

fOO F0RQ=OT0?35 PRINT'' " , NE.-.T " 

=01 f:=, = :■:■:-■ ;.-_;.----.;■ =i>:E",M2r e ■ O 

:■■-, ■ .- -. ".---■ POKEO. 127 HEX! 

603 FORO-1552TO1712STEP40 POKEO. 127 NEXT 

886 F0R0-147S1 l679STEP4i ■ EI 127 NEXT 
807 F0R0=1162T0I362STEP48 POr.Efl-127 NEXT 
80S F0PQ=lt4^- )|842STEMfl F*E0. 127 NEXT • Ys~(\\f\ 1 

so-;. Fo=:;-=p;4;-.;:6F-;iTE-4.-- =.-..>.. ; .- ■..-..- n 

310 F0RQ=U69Tai8495TEP4e POKEO. 127= HEX! 

811 FORO=1055Ti:-2-j:?-;TER4O PuKE'"J. 127 NEXT 

812 FORO=1024TO1031 POKEO. 127 HEXT 

813 FORO=1064TO1O70 POKEO, 127 -HEXT 

314 FDRQ"lie4T0118S POKEO. 12?: HEXT 

315 F0R0=!144T01148PWE0. 127 NEXT 
816 F0R0=U84T0U87- POKEO. 127 NEXT 
81? F0RQ=120-3T01214-F0KE0. 127 NEXT 

BIS F0R0«35483T055486 POKE0»7'.NEXT ff&H 

813 F0R0=1154T01155 P0KEQ.I27 NEXT /rJtf / 

320 F0R0=ll?3T0n?T- POKEO. 127 NEXT 

838 F0R0=1224TO1226 POKEO. 127 NEXT " MyUT\ - 

351 F0RQ-1232TQ1235 POKEO- 127 NEXT **' MtW \\ ^ 

832 F0RQ»1264T01263 POKEO. 127- NEXT 

833 FOR0=1271TO12?5P0KEQ. 127 NEXT 

834 FORO=1310TO1315 POKEO- 127 NEXT fT /j2l? /$/ 
S35 F0R0=1349T0136]i POKEQ. 12?:NEXT 

336 F0PQ=13S9T01335 POTEO- 12? NEXT 

337 FOR0=147=T01466 POKEO, 127 NEXT 
336 FORQ-1794T01712 FO*.'E0. 127 NEXT 
833 F0R0=1828T01349 POKES. 127= HEXT 
540 F0S0 = 13i4T.;.2.JlT. FC-.EQ.127 NEXT 
850 GOTO 100 

1896 I'MTFlM, 0-6. 0,0. 0.0, 0,0. 0.0. 0, 0.0. 0,0. 0.0. 0.0.0 

IO10 DRTfiO. 56. 6-0. 16, 0.6. 186. 0.0. 254. 0-8. 186- 0.0. 16. 0.0. 56.0 

1920 DhTPO. 00. 0.0, 0.0. 0.0. 0.0. 0.0, 8-8. 0.0. 0,8,8.0 

:o:o DrtT^o o.o -0.0. o.0. 0.0, 8.0, 0,0, 8, 0,0.e. e. 0.0. 0.8. 0-0. 8.0. { 

1048 DRTR8, 0,0, 0,0, 0,0, 0,0, 0,0, 8, e.g. 0,0, 8,0. 0.0. 0,6 
1050 0RTR2^5 J:. 1 :". - 25? ■ 255 , 255, 255 
100-J ;=Er-LlG;iEI ETE2NT L ETR^N 

2010 REM 16 R 50 VITESSE ET PfiRCOURS 

2020 FE:: 10O VfillDfiTIGN W SPRITE 

2030 REM 105 DEBUT DU CHROHO 

2048 REM 130 PI 198 SPRITE VERS LE BBS 

2050 REM 140-CQORDONNEES DU SPRITE 

2060 REM 142-COLISION 

2070 REM 160 fl 131:CHRNG£MEHT DE DIRECTION 

L?i? REM 152 FIN-OHRONO 

2830 REM 200 A250:SPRITE VERS LE 8AS 

2100 REM 2U:C0LISION 

2110 REM 210-COORDONNEES DU SPRITE 

2120 REM 220 fi 25i:CHRNGEI1ENT DE DIRECTION 

2130 REM 308 ft 350 SPRITE VERS LE HfiUT 

2140 REM 310:COORDONNEES DU SFRITE 

2150 REM 311 COLISION 

2168 REM 320 fl 34 1 CHRNOEMENT DE DIRECTION 

2170 REM 400SFRITE VERS Lfi DROITE 

2166 FEN 410COORDONNEES 

2198 REM 411 COLISION 

2288 REM 420 ft 441 CHRNOEMENT DE DIRECTION 

2210 REN 442 FIN ET CHROHO 

2220 REM 460 FIN DO PRGGRRMME 

2238 REM 508 R 599-PflRCOUR HLOG 1 

2248 REM 600 fl 650: " N* 2 

2238 PEM 300 fl 850: •■ N -3 

2268 REM 780 8 758 SON DE Lfl COLISION 

2270 REM 748 RETOUR flU DEPfiRT 

22;0 PEM 1000 R 1058 DONNEES DU SPRITE 



ERRATUM 

3 lignesonleteoublieesdansle 
programme "Gestion de Fichier" 
oaru dans le n" 14. 

730 GOSUB 20 

731 PRIHT"iWK«WW N 

732 PRINT" RVEZ VOUS TERM I ME VOS NODIFS <.0/( 

733 GET RJIF R*="" THEN 733 

734 IF R*="0" THEN 270 



ISOMETRIE -xol 



Les isomelries (symetrie axiale. centrafe, translation), ga 
nevousdtt rien ? Essayez... 



Marc RAYNAL 



Mode d'emploi 

Le programme se decompose en 5 parties : 

1) Symetrie d'axe verticale 

2) Symeirie d'axe horizontale 

3) Symeirie d'axe queiconque 

4) Symetrie centrale 

5) Translation. 



5 PE« ISOMETH.E 

6 PEM AXE C'E SYMETRIE VERTICALE 

7 CONSOLE*. 24:CL: 
20 SCPEEN.7 
25 LIKE ' ." " 
30 OOSUB 
eesNEzr r 
40 imputpeh v\\. ■ :■. 

'(_• ilf.1 i ::;■-.■■:■. ■. ::f^e: ■ 319-xt;;, HM 
60 tHPZH y.i. \ i 

7a ir >:ife op vi e ~»e<- play 'T2L 1204 si 03 

PE04SI-!COHiOLE2- . ■■■■■- ■-■ S2IPR1 

XT" ■■•- ■"•■ •:E:0:-.'70I.185'-{3B8.tM 
■ 80X(286j ;'■-.■'.:■ ! B>183>-<2 

■ . : ■ ■ 

-■. [F i i' OP '1 B THE* PEN8J ■ ' ; <i >18! 
,:.-. ;■■■.;: 288*1 '■ i ""- I >9 '»2J 
'-'279, i?$>tfjHPEH GOTO 36(3/269*1 
12D0LODO-IC0TO 70 



,. ^-.. t :-,--.-., ^:F0P *=C TO 2 



I PSET 



: I ". . . I ■ 



,HI El : ■ 



:■■ 



ne coto -.0 

280 PEH SVn [-E0I.TE 

265 PE« AXE DE BYflETRIE H0RI20MTALE 

210 COKSOLE0.24!'- 
■ REEK, 7 

zs'j like re,iei i, tee 

236 COSOe l4#eiCLSiPRI«(T-0K'ir0R >-o 10 

209!HE>;T k 

2«9 IKPUTPEH \\%, 

24'. ir , ]■.■ 173 0* : " ■ :'• : "' (Ml 

03T2L12I'CifJ2L»r'" , l 

}■..'.■..:■''■ r., 1*9 

tbf> INF'I II I . ■ 

tit \! 1 ■■ '.i- TUCK I 

3PE041I"t' -22IPI 

INT-' -*■ -'■ t»( ■■■ , ■ ■■■ ; ■ 

J ii80 -. ■■"■ r '■ ■ ■ 38, 185'-' 

270, \'t'>: 

zvj irxi<8 OR fl I "": ■'■;■! ' ■ ' 

'. i:. : ■ I . I : . 18, 18' M»« 199>, If IS 



Chacune des parties propose une palelte de couleur a choisir au 

stylo optique : cecifait, on traceaustylodesligureset T07 trace la 

figure symetrique, translatee... 

Si on releve le stylo le menu |<>|| < jj >l apparail. On choisit au 

stylo: 

1 >• | = afliche a nouveau la palette de couleur. sans effacer le 

dessin. permet de changer de couleur 
ou [ <. | = efface le dessin, on reprend ce chapitre a zero 
ou |<:>) — 'passe au chapitre suivant. 

Remarque: un signal d'ambulance previent lorsqu'on sort de la 
zone d'ecran possible dans !e chapitre symetrie d'axe queiconque 
el les suivants. 

Bien entendu ceci est un mode d'emploi minin 
decouvnr en ■■ peignant ». 




le reste est a 



5>-'278, 1^9>:0MPEN GOTO £30. 200. 400: PLft 

*T2L12D0LRD0":GOT0 270 

2B8 XU»(XU+X1>/E 

290 YlX-<Yl*+Yl>/2 

2?5 IF Y1W173 OP 199-Yl)t>l73 THEN PLAY 

O3T£:L12I'0O^Ll : lO3^0 H :GOT0 260 

330 PSET (X13c,YU) f UPSET CX1K, 199-Y1X) 



.-;•■. :>■ 



(280, J85>-(29?, 1??>,2;<258, 1 



310 GOTO ; 
328 , 199>j 



400 PE« 3VM/DP0I.TE 

405 PEPI h>:E E'E SYMETRIE 0UELC0H0UE 

4I0 C0KS0LE6.2-";CLf:L0C"TE0, 22 

428 3CPEEN.7 

430 GOSUP 1500: CLSi PRINT 'OK": FOR ((»( 

200:NEX" 



450 LINE CX2,Y2)- 



-. 



I GOSUP 140O;CLS:PP!MT-Of "tFOP K-0 TO 
2O01MEXT I 

470 inputpem :;r.. . ■;'. 

A-', IF i:i?Z 'HEH PLMV "03T^L1^^002LflO 
3D0-JG0TO 470 
488 GOSUB 700 
499 1NPEM XI. VI 

A'-r ir YD 173 then pl-i '03T2LI2P002LA03 
[>0-'GOTO 499 

369 IF >:i'( OR ■'! O THEN f l... - I2L 1204SI0 
3RE04SI*iCOM80lE28«24iCLSiLOCflTE38,8eiRR 
]ut ••- ■•- 'i my.- 3oi, ias:>-'328.i9 
. :i ■ 288,189 ■ ■ '■ I ' 'M80X<838, 183>-< 
278, !'•'" 

sic n i e "i- 1 1 e '•<!'■ '<■'••■ »i. i83'-< 

320, ! 99., II '280, [83 ,••. I' -■..'! 1 258, 18 
5--'27e, 119'10NPEN G010 4t 0. 400, 800! PLOV 
"T2L12D0L«C>0-!G0T0 569 



:r. 



536 I 

5*6 r. ■ . r.«. I ■ t 

550 GO'jUB 766 

560 GOTO 490 

(81 I HD 

706 fi2»-i AUBl :'• "■ • :'■ 

7|0 X3-<88- Bl ■ ■ -i Al 



712 IF Y1^'2«CINT.V3-' 

INT(!<3-xr.:)> ■ 

3E>0": RETURN 

715 ON ERROR GOTO 740 

728 PSET <xi**28CiirT(x; 

Y3-Yl*<>),l:PSET (XI - -:, vr.-. I 

725 ON ERROR GOTO 

73B RETURN 

740 PLOY ■O3T2L12[<0CJ2LA03t'0-:PESUME 4M 

300 REM SYH'POIN.T 

816 CONS0LE9,24:CLS:l0C<.TE9.22 

828 SCREEN, 7 

330 C0NSOLE82.24:CL;:L0:«TtO.c\i:' i ^Ki. (■ 

nnez i point "vcc le stylo optipue-.-^ou 

P E-EFIN1P UN CENTRE DE SVMETP IE. " : INPUTP 
EN X8.Y8!PPINTCMBI-":>:F0R .1-1 TO 260iNE>: 

840 BOXF CXB-2,Y8-2 <-< >'• - ■'■■ 

860 GOSUB |488ICLSiPRIXT*OK'»F0« I 

280:HEXT X 

879 Inputpen xi:.yr. 

873 IF Yiv.>175 THEN PLAY '03T2L 1 2t-002LftO 

3tO"iGOTO 879 

686 G0SU9 1010 

896 1NPEN XI. Yl 

895 IF Yl 173 'Mrs PLS "03T2L I2D002L"03 

DO-'COTO 899 

>.,.i, u .; (i i it ■, ; ,-i ;nru n „ , ;. i : 

5RE043r'CrtN^0Lt:.^..^:il.?lLOCO1E32,22lPP 

INI- ..■-■■' •' i BO 101,183 ■ M -■ : l 

9>iB0M<288> : ; i : ' .*8.l95»-<" 

278. 199' 

|<8 01 1<0 THEN PI N8l 181. J 

■ i. .:-■. I | t,\tn -■.;■■■.: 

. : ■ • ■:■ )M| IN GOTO 360.890. ILOOiPLM 

i -T, l iri'OLlit'O'iCOTO 990 
■■30 :-;r..>: ['.• : I 
MB vr."i r.- . ; , 
939 GOSUB 1019 

■■■■ GOTO 899 

uinn i Nr 



[Ml 



1912 IF YSH73 OR X2>319 OR X2<9 OR Y2<6 
OR Xiv.>319 OR Yl*>173 OR y.r. e ■ 

THEN PLOY-03T^L12^0O^LO03['0■:PETURN 
1915 ON EPPOP GOTO 1840 
1020 PSET CXn.Yl*), UPSET CX2, , 
1625 ON ERROR GOTO 
1030 RETURN 

1649 PLAY •03TeLl8D002LA0380'iRE8Um -' 
1 106 PEN TPRNSLOT. ION 
1 I 16 C0NS0LE9.24:CL;:L0C^TE0,. : 
1128 SCREEN, 7 

I 136 C0NS0LE22,24:CL$:L0C> : 'TE0.22:PP1N1 'D 
0NNE2 2 POINTS flVEC LE STYLO OPTIOUC'.-P 
OUR E)EF1NIR UN VECUUP t-E TBrtNSLilI ION. ■ : 
INPUTPEN X7.Y7:PRiNTCHRI-?'iF0R 1^1 TO E 
66:NEXT I i INPUTPEN X8, Y3j PR 1NTCHPI ■ 1X8 
=X8-X7fY6-Y8-Y7 

1168 J-UCOSUe 1400:CLS:PPlNT-ni II 
6 TO 289: NEXT K 
1165 IF 1-1 THEN J«0 
1170 INPUTPEN XI*, fll 

1175 IF YllC>173 THEN PLAY "03T2L 12D002LA 
03D0-:C0T0 1176 
1180 GOSUB 1316 
1196 INPEM XI, Yl 

1595 IF YIM75 THEN PLrtY "03T2L 120002LA0 
3O0":GOT0 1198 

1289 IF XK0 OR YKO THEN PLAY*T£L1804S1 
05RE04S!-:CONSCiLE22.24:Cl.S:LCC. , iIE3^.2c':^ 
RINT'O'** <■•- >":80X(38I.18:> 128.1 

99>:B0X<288.185'-.299. !•?■»> sB0X< 238, 185'- 
(278,199) 

1216 IFXlvO OR Yl<8 Then PEN81' m,tV 
<328,199). 1!(280. 1 B5 ■■.•-.:■*.. ' 

B5>-<273, I99>'0NPEN GOTO 11(8. 1188*1 F88> 
PLAVT2L12D0LAP0-1G0TO 1266 
1230 xr-i-Ul'4*Xl>/2 
1240 VU'(Y1VY1).2 
1258 G0SU8 1310 
1269 GOTO 1196 

1309 PRINT-TIN X-L Lrt LECON. - ! END 
1316 X£aX8*XUi ti 'Y8« I* 
1312 IF Y2>175 OR I* 01 

IU319 OP Y2<9 OP X2(6 OR tlX B OR 11 

7 HEN PLAY'mTJL12D002L<103r'0-!RETUPN 
1315 ON ERROR COIO 1340 

1329 PSET c X I '. . v 1 ". ■ , I : l I 
1325 ON ERROR GOTO 

1330 RETURN 

[348 PLAY "03T21 ISD002l.A03l>0*iRESU(U 119 


1400 PL-»Y-T2Li; , 04SI05PEiMV 1 ■( I i IN! 1 1 . ! . - . - 

4>CLSlL0COlC0.22iC--ltF0R L-0 TO 

P 25IC-C-1 180X1 (L. I B»l ■ 184),CI60X< 

i , |83 ■ E28*l . i l»»l«XTL 

1428 C»-]tfOP L«6 TO 125 STEP 2MC*C*HP 

EN CI (Li IB3)-<»8*L, I ■ I • ■ HI !1 C«0XRIN COT 

14 36, 1433. 14 40. 1445. 1450. M'.MI'I ,, , ■ VI 

18001 ADOMCOTQ i 410 

1438 I-OiRETLtRN 

1-135 l-llRETURN 

M-tO !-.?:RCTURN 

H 45 l=3:RETURN 

H50 l=4!RtTURN 

1453 I«5IRETURN 

]■■«" ■ .,-.■■ ->■■ •■■■ -■ ■ ;l ,, ' ! '' '!' 

ONNE2 2 P01N13 AVEC LE STYLO 0PT1 Ul ■ 

OUR DEFINE W AXI 
H X2.Y2IPP1NIF .tin- ' -:> nk 1-1 li 
H INPUTPEN X3iYJiPRHtTCN*l< 

l-X8)lBl •■•■ 

1388 LI hi i _ 

1539 RETURN ■ 



C'EST NOUVEAU, CA VIENT DE SORTIR ! 



ECRAN MAGIQUE: 

Voici les differents sujets qui seront abordes lors des 
prochaines emissions d'£CRAN MAGIQUE, samedi de 
15 h 30 a 17 h sur Radio RIVAGE CONTACT., 91.4 Mhz. 

— Le samedi 21 Janvier: les animateurs d'ECRAN 
MAGIQUE recevront les organisateurs des ETATS 
GENERAUX DE LA MICROINFORMATIQUE. manifesta- 
tion qui se tiendra du 24 au 28janvier 1984 a la Bastille- A 
cette occasion 100 invitations gratuites seront a gagner. 

— Le samedi 28 Janvier : les auditeurs d'ECRAN MAGI- 
QUE pourront participera un jeu d'aventure en direct sur 
I'antennepar I'intermediairedu telephone {850-1 7.74). Le 
materiel utilise sera un APPLE II et une BBC B.ce dernier 
servira pour les bruitages grace a son synthetiseur. Une 
premiere mondiale... 



PEUCHERE, UNTIGRE! 

«TIGRE 13 -est un clubde micro cree en mars 1983 pour 
les utilisateurs du TEXAS Tl 99/4A de la region marseii- 
laise. II fonctionne le mercredi de 19 h 30 a 21 h 30 et le 
samedi de 14 h 30 a 18 h, C'est a I'UAS ROUET. rueBene- 
detti. 13008 MARSEILLE. II y a deja plus de cent mem- 
bres, on n'attend plus que vous pour mettre la derniere 
main a un logiciel de Petanque! 



DEUX MILLIONS DE SINCLAIR. 

DIRECO. I'importateur de SINCLAIR en France, nous 
communiquedeschiffres impressionnants : il s'estvendu 
dans le monde un million deux cent mille ZX 81 et un 
million de ZX SPECTRUM ! Vous vous rendez compte le 
nombre de personnes qui triturent les touches en caout- 
chouc du SPECTRUM et le nombre de lignes de listings 
qui ont du etre rentres dans ces machines! Questions 
interessantes : combien de milliards de fois les utilisa- 
teurs reunis ont-ils appuye sur la touche ■ ENTER > et 
combien de milliards de livres y a-t-il sur le compte en 
banque de Monsieur et Madame SINCLAIR ? 



C'est NOUVEAU 

ORIC FRANCE ANNONCE DE NOUVEAUX LOGICIELS 

DE JEUX SUR L'ORIC: 

SUPERMETEOR : nous voila dans I'espace intersideral. 
Dans une galaxie inconnue un laser se positionne au 
centre de I'ecran. Notre laser est attaque par des mete- 
orites qui arrivent dans tous les sens. II doit detruire les 
meteorites avant d'etre lui-meme pulverise. 

PAINTER : un jeu de rapidite et de reflexion qui s'adresse 
aux enfants comme aux adultes. Plusieurs points s'affi- 



chent avec 4 ou 5 rectangles accoles. Des nombres figu- 
rent dans chaque rectangle. Le joueur pour se defendre 
dispose d'un nombre tres limite de bombes. 

ZORGON : 4 tableaux de jeux sont possibles avec 
ZORGON qui se joue a un seul joueur. 
1 er tableau : Un vaisseau spatial sur la gauche de I'ecran 
se meut de haut en bas. Des soucoupes ennemies et des 
meteores foncent sur le vaisseau. Celui-ci doit eviter les 
meteores et vaporiser les redoutables soucoupes. 
2e tableau : L'action de ce tableau se deroule sur 3 
niveaux. Au debut du jeu un bonhomme se trouve en bas 
a gauche de I'ecran et se deplace en translation horizon- 
tale. II doit bouger en evitant les boulets qui le 
bombardent. 

Au-dessus de lui, sur le 2e palier. un oiseau vole. Notre 
bonhomme doit sauter pour attraper les pattesdel'oiseau 
et ainsi acceder au niveau superieur. Arrive la : de nou- 
veaudes boulets et le bonhomme doit encore s'accrocher 
a I'oiseau. Mais la un grand danger le guette. S'il rate 
I'oiseau. il est precipite dans un groupe qui le tue. Heu- 
reusement, il possede 3 vies. 

3e tableau : Un monstre, vraisemblablement unepieuvre, 
situe a droite de I'ecran envoie des projectiles sur un 
bonhommesetrouvant a I'autreextremite. Le bonhomme 
doit aller vers la pieuvre tout en sautant par-dessus les 
objets meurtriers generes par le monstre. 

suite page 15 



LE PREMIER TOME EST DEJA UN BEST-SELLER, VOICI DEUX NOUVEAUX 
RECUEILS DE LOGICIELS, ENCORE PLUS COMPLETS, ENCORE PLUS 
BEAUX! 



JEUX et PROGRAMMES 

pour 

I'ordinateur familial 

TEXAS INSTRUMENT 




programmes enTi basic pour~Tl 99/4A" 

INITIATION AU 

LANGAGE ASSEMBLEUR du 

TEXAS INSTRUMENTS 

Ti 99 4/A 




Programmez vous-meme en Ti-Basic grace a des instructions simples, sans 
aucun peripherique ni module complementaires. Des jeux originauxet passion- 
nants avec couleurs.graphismeset sons: Jeux demouvement (Bowling, Bat aille 
de I'espace, Labyrinthe, etc.). Jeux de reflexion : Dames, Pendu, Awari, Tour de 
Hanoi, Architecte, etc.). Jeux desociete {421, Goldie.Cochon, Mastermyster.Chif- 
fres et mots, etc.). 

Des programmes performants : Calcul (Factures, Paye, Byorythmes, etc.). Assis- 
tance (Tierce, Impots, Suivi de compte en Banque, etc.). 

Etaussi des Astucespouraugmenterla puissance du langage Ti-Basic: AND et 
OR, Arrondi, Alignement, HCHAR multiples, etc. 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



Letome2esttoujoursen basic simple, sans peripherique ni module complemen- 
taire. Les jeux y sont encore plus nombreux : Backgammon, Sous-marin, Trappe, 
Roulette, Casse-tete, Puzzle, Echecs, Tachitoscope, Kim, Paires, etc... De !a musi- 
queainclure dans vos programmes: Big Ben, la Marseillaise, God save the queen, 
les Rois mages, etc. Et aussi, des programmes educatifs : Arithmetique, Calcul de 
puissance, Regions de France, entrainement a la logique informatique. etc. 
100 pages. Format 21 x 29.7. 155,00 francs francais. Disponible. 



en vente dans les friac et chez les 
revendeurs TEXAS INSTRUMENTS. 



JEUX et PROGRAMMES 

pour I'ordinateur familial 

TEXAS INSTRUMENTS 

Tome 2 




Le tome 3 est en basic etendu, il necessite done le module "Extended Basic" qui 
augmente considerablement les possibilites de votre ordinateur. A des program- 
mes utilitaires comme un traitement de texte ou une gestion complete de plu- 
sieurs comptes en banque s'ajoutent des jeux rapides (bataille navale, course de 
voitures, etc.), des jeux de societe (Theme astral, Drapeaux, Poker, Harmonium, 
Calculettescientifique.Ardoisemagique etc.), des utilitaires pour creer des lutins, 
fusionner des caracteres, dessiner point par point, faire defiler des textes dans 
tous les sens ou encore fabriquer une mire Texas a votre nom ! 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



Vous connaissez le Ti-Basic, vous possedez un Ti 99/4A et un module "Mmi- 
memoire"? Vous pouvez des a present disposer de toute la puissance de votre 
ordinateur :Acces a toutes les possibilites graphiques.y compris la haute resolu- 
tion. Acces direct a la memoire centrale. Grande vitesse d execution (deux minu- 
tes au lieu de deux heures trente pour un meme programme). 
Ce manuel, comprenant un grand nombre de programmes commentes vous 
apprend progressivement, sans connaissances techniques prealables. a maitri- 
ser un langage tres puissant reserve jusqu'a present aux seuls specialistes. 
Par Denise AMROUCHE et Roger DIDI. 214 pages. Format 21 x 28. 195,00 francs 
francais. Disponible en francais et en anglais. 



JEUX et PROGRAMMES 

pour I'ordinateur familial 

TEXAS INSTRUMENTS 

Tome 3 




PROGRAMMES Ml BASIC ETENDi 



3<- 



DEMANOEZ LE CATALOGUE DE NOS PROGRAMMES DISPONIBLES SUR CASSETTES ET DISQUETTES. SHIFT EDITIONS, 27 rue du Gal Foy. 75008 PARIS 



taft/Prtnar III I I 

Urn* 111 I I I I I I 

I I I CWe Paul I I I I I I 

VIM I I I I I I I I I I I I I I I I 



TOME 1 I J 155 F TOME 3 D 155F 

TOME 2 111 155 F ASSEMBLEUR D 195 F 

CONTRE REMDOURSEMENT FRANCE + 20 F □ 

CONTRE REMBOURSEMENT ETRANGER I 30 F □ 



REGLEMENT JOINT... 
cheque H ccp LI 



4&QF 



LOTOMATH 



Un jeudelotopour lesmatheuxet lesamoureuxdu calcul 
mental- Vitesse, reflexion... Attention au surmenage! 



Mio i»»"inP-Dssi&LE ■■ 



430 FOR F-110 TO 200 STEP 10 



Michel CORRENOZ 



Mode d'emploi 

Cejeuquisejoueadeuxestbasesurles4 operations elemental res. 
Chaque joueur dispose de 24numeros qu'il dot! combiner pour 
obtenir un numero de I'aduersaire. L'ordinateur chronometre le 
temps de reflexion, verifie la validi tedescoups.su pprime les nume- 
ros utilises, et compte les points. 

Attention : les operations sont executees dans I'ordre c'est-a-dire 
que 2 4- 3 * 2 = 10 et non pas 8. 



1440 


CALL S0UHD(-500,F,3) 




NEXT F 




GOSUB 3030 


1470 


GOTO 1920 


1460 


LLHI.GI-LLU.N) 


1490 


CCCII,G)-CCU,N) 




AU,N> — A(I,N> 


1310 


NEXT G 


1S20 


FOR N-l TO 24 


1330 


IF ZZ-AIJ,N)THEN 1360 




NEXT N 


1330 


GOTO 1380 


1360 


ELL<J)-LL(J,N> 


1370 


ECC(J)-CC(J,N> 


1 380 


A(J,N)-0 


1390 


GOTO 1600 


1600 




1610 


FOR K»l TO 24 



100 RANDOMIZE 

110 GOSUB 3380 

120 CALL CLEAR 

130 CALL SCREEN 19) 

140 CALL CHARf 128. "003B44040B100OI0" > 

ISO CALL CHAR< 129, "0004081000000000" I 

160 CALL COL0R(l3,3, II) 

170 DIM A(2,24) ,A*(2,24) ,LL (2, 24) , CC (2, 24) , Z (24) 

ISO PRINT : t'VOULEZ VDUS LES REGLES?" 

190 CALL KEY(O.K.S) 

200 V-l-(Sv ::01-<K-791-2<IK-7B) 

210 ON V GOTO 190, 190.30B0.220 

220 CALL CLEAR 

230 INPUT "NOM DU PREMIER JOUEUR"" s NMT. < 1 ) 

240 INPUT "NOM DU SECOND JOUEUR ■»" : NM« < 2i 

250 CALL CLEAR 

260 INPUT "OUEL NIVEAU CHOISISSEZ VOUStDE 1 A 9>7"! 

270 CALL CLEAR 

280 IF NV<1 THEN 260 

290 IF NV>9 THEN 260 

300 INPUT "CHOISISSEZ VOTRE TEMPS DE REFLEX10NIEN 

TRE 1 E7 t0)":TR 

310 TR-100»TR 

320 IF TR<10O THEN 300 

330 IF TRMOOO THEN 30O 

340 CALL CLEAR 

350 PRINT t : :TA6(5)!"UN INSTANT...": : i "JE CHOI 

SIS VOS NUMEROS " 

GOSUB 2580 

GOSUB 26B0 



380 PT ( 1 ) ■ 
390 PT<2>-0 



> FOR 1=1 TO 2 



> GOSUB 3030 



4B0 : 
490 I 

soo : 



IF 1-1 THEN 550 



540 GOTO 560 



360 
570 
3BO 
390 
600 
610 



"ft 



-99' 



/*> 



-20 



670 

ie ■ 

690 



CPT-O 

l»="A"I.CHR«(127>S."T0l" 

GOSUEi 7030 

CALL COLORil 1. 14, 14) 

CALL HCH0R122,XC(I). 112 

R» = "" 

Y=16 

CALL ^EY(0,K,S) 

CPT-CPT*! 

IF CPT<INT(TR/12)THEN 7 

IF CPT-TR THEN 1930 

CALL HCHARI22.XCCI! . 104 

IF S-0 THEN 6B0 

IF K-63 THEN : 

IF K-61 THEN I 



F <K<>46>< 

► •=CHR»<) 



<j-44)< 



-0 THEN 6B0 



(I)-l 



) IF X(l)>14 THEN 2090 
i IF X<2> 31 THEN 2120 
) CALL HCHAR(Y.X(I),KI 
■ CALL 50UND<100,-2,2> 
1 R»=R»S.KK» 
i GOTO 6Q0 

i I» = "D"*CWR«<129)!.' 
I Y-Y*2 



.• J CHR»<12B) 



890 GOSUEi J030 

900 CALL KEY10.K.S) 

910 CPT«CPT*I 

920 [F CRT- INT (Tft/ 12) THEN 950 

930 [F CPT-TR THEN 1950 

940 CALL HCHAR(22,XC(I) , 104. INTU2* 

950 V«1-<S 0)-(K»7B) -Z«M( -?9) 

960 ON V GOTO 900.900,2150,970 

970 GOSUEi 2970 

980 REH»»-»» ANALYSE ** 

990 7.Z-0 

1000 M-0 

1010 &0NI-O 

1020 FOR G-l TO'LEN'R*) 

1030 S* = SEG»(R«.G, 1 ) 

1040 IF ASC<S*><48 THEN 10BO 

1030 NEXT G 

1060 Z<M*1)«VAL(R*) 

1070 GOTO I 150 

10B0 M-M*l 

109O SG*(M)-S» 

IIOO IF ASCfSEG«(R«. 1. I)J'-48 THEN 1 

1110 IF ASC(SEG*(R*.i, 1 ) ) >5B THEN 1 

U20 Z<M)-VAL(SEG«'R». l.G-1) I 

1 130 R*-SEGt/R».G-l,LEN(ft»)-G) 

1 140 GOTO 1020 

1130 ZZ-Zil) 

1160 FOR H-l TO K 

1 170 IF SG»(H)-"-' 



HBO IF BOHH)-' 
I 190 IF SGKH1-" 
12O0 IF K»(H>»" 
1210 NEXT H 
1220 GOTO 1340 
1230 1I'I1'2(H-1 
1240 GOTO 1210 
i ; 50 rl-II-Z(M*l 
1260 GOTO 1210 
1270 ZZ-Z/*Z<H*1 
1280 BONI-BDNI*! 
1290 GOTO 1210 
1 K>0 l<riNJ-E)0NI*5' 



THEN 1230 

THEN 1250 

THEN 1270 

THEN 1 300 



1SK 



11*21. 



• I ) 



■;■■ BOTO 1210 
l S30 FteM»»»*»"VAI II 
i [40 for u-l (0 ri+: 
l ". n-i TO 24 

I •- o ii ! ■!,. ■ Al I , -i. 
1370 '" I ' N 




660 CALL S0UND(200,-5,2> 



(1) 



(I)- 



1 NEXT \ 

> CALL SOUND (200, -6, 2) 

) CALL HCHARtELLI J).ECC(J)*1,32,2) 

) PT(1)-PT(II*ZZ*H0NI 

) PT(J)=PT<J)-ZZ 



! 12) -29 



i GOSUB 3030 

■ I*-STR«(PT(D) 

I CALL S0UND<200,-7,2> 

> GDSUB 3030 

I Xd)-X(J) 



I I»-STR»(PT(J) 1 

■ GOSUB 3030 

1 CALL S0UND<200,-7.2> 

. NC(I)=NC(I)*rt«l 

) NC(J)=NC(J)*I 

> IF NC(t)-24 THEN 2220 
) IF NC(J)-24 THEN 2220 

> IF PC<I)»PC(J)-I THEN 2220 
) IF 1-1 THEN 520 

> 1 = 1 

1 GOTO 550 

i CALL HCHAR(22,XCU> ,104, 12) 

> CALL S0UND(3O0,262,3) 

> CALL S0UNDI300, 523,3) 
i CALL S0UN0(600,440,3I 
i CALL S0UMH300,262,3> 
) COLL S0UND!300, 440,3) 
I CALL SOUND (600, 349, 3) 




2020 


CALL SOUND 


2O30 


GOSUB 2970 


2O40 


GOTO 1920 


2030 


CALL SOUND 




GOSUB 2970 


2070 


PCtI)=l 


2080 


GOTO 1B90 


210O 


V-Y+l 


2110 


GOTO 810 


2120 




2130 






GOTO 810 


2150 


GOSUB 2970 


2160 


Y-13 


2170 


R*-"" 


2180 


XUI-3 


2190 


X(2)-20 



10,262,2,440,2,323,2,-8,3) 



i,9BB,2,-3,3) 



2200 I»-"REJOUE" 

2210 GOTO 630 

2220 FOR Y=300 TO 1600 STEP 20 

2230 CALL S0UND(-A00,Y,3) 

2240 NEXT Y 

2230 FOR Y-1600 TO 500 STEP -25 

2260 COLL S0UND(-600.Y,3) 

2270 NEXT Y 

2280 CALL CLEAR 

2290 CALL SCREEN (9> 

2300 FDR GR-I TO B 

2310 CALL C0L0RIGR.2, I) 

2320 NEXT GR 

2330 IF PTI1)>PT(2)THEN 2510 

2340 IF PT(2) >PT(1)THEN 2330 

2350 PRINT : : : "BRAVO ,"|NM»(1)I i"BR0VO ,"tf> 

M»(2): : : : : "VOUS AVEZ FAIT MATCH NUL ' " 

2360 PRINT i : : : : : : "VOULEZ VOUS REJ0UER7 1 

2370 INPUT RJ« 

23B0 IF SEG«IRJ*. 1. l)-"0" THEN 2410 

2390 IF SEG«(RJ», 1, 1)-"N" THEN 2460 

24O0 GOTO 2370 

2410 NCin-0 

2420 NC(2)-0 

2430 PCID-0 

2440 PC<2)-0 

2430 GOTO 220 

2460 CALL CLEAR 

2470 PRINT ::::::: I "AU REVOIR " 

2480 FOR YU-1 TO 300 

2490 NEXT YU 

2500 END 

2510 NG»-NM»(l) 

2520 GOTO 2540 

2530 NG*»NM«<2) 

2540 SCO-ABS(PT(l)-PT(2) I 

2530 PRINT : : : : "BRAVO ,"!NG«: : : i : : "TU 

S GAGNE AVEC": : TAB (6) ISCDI "POINTS D'AVONCE" 

2360 GOTO 2360 

2571-t REM •••TIRAGE""««« 

25SO FOR 1-1 TO 2 

2590 FOR J-l TD 24 

2600 RANDOMIZE 

2610 nil, J)-INT!RND»NV»10>*1 

2620 A» ( I . J ) =STR» (A < I . J ) I 

2630 IF LEN(A»<I,J) )-l THEN 2640 ELSE 2650 

2640 fl»(I.J)-"0"(.»(I,J) 

2650 NEXT J 

2660 NEXT 1 

2670 RETURN 

26BO CALL CLEAR 

2690 FOR C-l TO 4 

2700 CALL COLOR(C. 16. 13) 

2710 NEXT C 

2720 FOR C-5 TO S 

2730 COLL COLORtC.3, 11 ) 

2740 NEXT C 



2790 


N-0 




FOR C-2*P 10 11*P STEP 3 


2BI0 


FOP L-;' TO 12 STEP 7 


..■n." 


N-N*l 


.■II V, 


CC( I.NJ-C 


2840 


LLU.NI-L 


2030 


FOR T-l TO 2 




V-OSC(SEG»IA»( I.N) ,T, 1) 1 


2870 


CALL HCHAR(L,C<I,V) 




NEXT T 


2H90 


CALL SOUND! 100,220*1,6) 


2900 


NEXT L 


2910 


NEXT r. 


2920 


IF 1-2 THEN 2960 


2930 


1-2 


2940 


F-17 



LOGICIELS CANON 



Explorez les etonnantes possibilites de voire CANON 
X-07 avec les quelques 40 programmes reunis dans cet 
ouvrage. Des programmes performantsqui fonctionnent 
sur le X-07 de base (8 Ko) : calculs scfenliflques : opera- 
tions sur les matrices, conversion de coordonnees. 
racines de polynomes. integration, interpolation, etc. Des 
utilitaires : gestion de compte en banque, histogramme, 
impot. hard copy, trace de courbes, biorythmes. etc. Des 
jeux : loto. poker, ardoise magique. un peu d'EAO. un 
super jeu d'aventures : le Tresor du Galion et trois "gros" 
programmes qui necessitent une carte d'extension 4 K : 
Astral. Tierce et Surfaces et Volumes. 






rJ ^ ^ % ^1 1 


-. 




Li i hV! 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 l4-i i 


J" 




--- 


















Z d. INTESRRTION 










._ 








- -, 






" UOTRE CHOIX Q^2^3> ■? 
































1 II 1 1 II 1 1 II 1 II 1 II 1 M 1 1 1 1 II i 





UN LIVRE SIGNE SHIFT EDITIONS ! en venle Chez les 
distributeurs CANON et par correspondence. 



><: 



BON DE COMMANDE A DSCOUPER OU REC0P1ER. 

A ENVOYER A: 
SHIFT EDITIONS: 27, rue du GAL-FOY. 75008 PARIS 



PRIXUNITAIRE: 95 F 

contre remboursement - France 4- 20 F O, Stranger 4 30 F O 

REGLEMENT JOINT .OOF DATE: 

SIGNATURE: 



cheque 



CCPQ 



2970 CALL COLORUO. 11, 11) 

29B0 FOR L-13 TO 22 

2990 CALL HCHAR (L . 3, 1 04, 1 : 

3000 CALL HCHARIL.20, 104, : 

3010 NEXT L 

3020 RETURN 

3030 FOR T»l TO LENU»> 

3040 V-ASC(SEG»(I*,T, 1) ) 

3030 CALL HCMAR(Y.X(I)+T^ 

3060 NEXT T 

3O70 RETURN 

30B0 CALL CLEQR 

3090 C' c . 



* 



P& 



10 PRINT 
20 PRINT 
30 PRINT 
40 PRINT 
30 PRINT 
L'ANNULER 
60 F 



I L'AIOE DES BIKNB* 



3340 

CHAOUE JOUEUR DISPOSE DE 24 NUMEROS 

IL DOIT DETRUIRE UN NUMERO DE 
"SEULES LES OPERATIONS *■,-,•,/ SONT AUTORISEES' 
"OTTENTION'ELLES SONT EXECUTEESDONS LEUR^ORDRE D-APPRITION" 

VOTRE COfID 



ISON FR0P05EE.TAPEZ -.PUIS O POUR LA CONFIRMER.OU N POU 
EST LE SEUL MOVEN DE CORRECTION"! i 



:170 PRINT "D'ACCORDr-. ..ALORS. .ENTER" 
) C-2 
3190 GOSUB 3340 
3200 CALL K£V(3,K.S) 
3210 IF K<>13 THEN 3200 
3220 CALL CLEAR 
3230 C»9 
3240 GOSUB 3340 
3250 PRINT "LE JOUEUR MARCJUE UN NOHPRE 

EN JEU * LE NUNEPO DETRUIT" 
3260 PRINT "UNE POrJI F 1 CAT ION EST OCCDRDEE POU LES • ET LES /" 
3270" PRINT "L-ADVERSAIRE PERD UN MOMBfiE Df. POINTS EGAL AU NUHEIK) W rfiUIl 
32BO PRINT "SI AUCUNE COHBINAISON N"EST POSSIBl.l. TAPC1 
3290 PRINT "D'ACCORD"'. ..ALORS. .ENTER" 
3300 C-2 
3310 GOSIJE. J340 
3320 CALL KEY (3, K, SI 



DE f'UINTS EGAL i 



i SONME DES NllHrfiCIS till- 



S330 


IF I--13 THEN 220 El Bl ■ 


-. MO 


FOR G-l TO 8 


'.-■.., 


CALL COL0R(O.C,9) 


3360 


NEXT G 


3370 


RETURN 


■ '0" 


REM tllRt 


'. '.■;..! 


CrtLL CLEAR 




CALL SCREEN'S) 


[410 


Tt- ■'.-.9U7634321 ♦-/•" 


5420 


CALL COLOR C. 1 3. 1 -' > 


(4 ■■" 


CALL COL0RI3.7. 13) 


•44m 


CALL C0L0R(13,6.6) 




CALL C0LDR(4. IS, 131 


■<l,,.l 


FOR 1-1 TO 26 


■n ro 


READ Nl .N2.D 


■•IH'.i 


1 Al 1 '.IJUND(120»D,N1,2.N2 


'41711 


I M (Am INT (24>RND1 • 1 


JSOO 


Ml n I I 



et 



0tf>° 



• l,Afl( IW 9*(Ti 



Sutta page 12 



CONTADET 



Qui paie ses dettes s'enrichit. Voila un programme qui va 
vous permettre de planifier vos rernboursements. 



Antoine DUCRET 



Mode d'emploi : 

Pour adapter ce programme sur Goupil 2 plusieurs instructions 
doivent etre modifiees : 

CURSOR L.C devient PRINT CHRS (27): CHRS (L). CHRS (C) 
(ECR. 24-80). 

Supprimer les lignes 160 et 170. 

Revo.r les codes ASCII des touches EXEC. COM. INS, EFF et 
BREAK (1.370 A 420 ET 510 A 560). 

^instruction CLEAR n'existe pas. Mettrele DIM (L.2390) en initiali- 
sation puis supprimer la ligne 2360. Creer en 2375 la hgne : 
FOR l%=1 TO 40:G°/o (l%) - : D% (l%) = 0: NEXT \% 
La recopie d'ecran (L.3440) doit etre modifiee. 
Supprimer les lignes 4000 A 4080. 
Revoir tous les codes des lignes 7030 a 7070. 

^\.~ \' *H 

I REM CONTADET -' llt^ 

I REM PROGRAMME FONCTIONNRNT SUR GOUPIL Z 

i REM • #**••#»#•»»••••#•**•*•»*»****»«■•««*«* 

I REM COPYRIGHT DOCTEUR Antoine DUCRET 

i REM 66 RUE D' RLSGCE 54300 LUNEVILLE 

, REM #*MMH»»«*»*»«#»»»*#*#»#*»*»«**#WHHHMI*» 

I REM 

i REM GESTION DE L R DETTE 

l REM 

l REM ••••••••••••••■•«»«*****"*"** i '**"»»*"* 

I EXEC, "TTYSET PS=N" 

, GOTO 7000 

. REM 
q E M ...•»».*.-. PROGRAMME DE SOISIE OU DE MODIFICATION 

i HEM «•»»< 

l POX=SX+l 

I CURSOR O, 1 t PR I NT IK*; IM*; " U ;IP»;IN*; "PRCGROMME" ; I M* ;"**»»" ; 

l PRINT IN*;"CONTODET";IO*;"(C) 1983 ";IM*;" "; INt; "flntoine DUCRET" 




180 
ISO 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 



370 
380 
390 
600 
410 
420 
440 
650 



550 
560 
570 
580 
590 
600 
610 
620 
630 
SAO 
650 
680 
685 
690 
700 
710 
730 

740 
750 
760 
1000 
1010 
1020 
1 030 
1040 
1500 
1510 
1520 
1530 
1540 

1550 
1560 
1570 
2O00 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2 120 
2130 
2140 
2 1 50 
2160 



PRINT IL*;IN»; 

PRINT I A*; 

SX»0:PX=1 

FOR IX = 1 TO 60=IF VOL (EM* ( IX, 9> > > THEN SX=5X+ 1 : NEXT IX 

IF POX(I THEN PRINT CHR* (7) ; i POX = 1 

IF POX) 40 THEN PRINT CHR* <7) ; i P0X=40 

CURSOR 2, 20: PRINT IU*;"SOISIE DE L* EMPRUNT NUMERO" ; I V* : " > 

PRINT IS*; 

FOR IX=I TO 9:CURS0R LX ( IX) , CX ( IX) :PHI NT IM* ; IK*; IX ; IL* ; " 

PRINT RU* (IX) ; IL*;" " ;EM* (POX. IX) ; :NEXT IX 

PRINT IK*; 

:PRINT IN*; "FI3" ; IM*; " POSSE OU PRECEDENT " ; I N 

;IM*;" MODE SOISIE " ; IN*; "EFF" ; IM*; " MODIFIE 

FlS";IM*i" POSSE OU SUIVANT 

DISDUE";IM*;" ENREGISTRE LE FICHIER ";IN*;"EXE 
LISTE SUR IMPRIMONTE " ; IN*; "BREOK" ; IM*; 
■;IN*;IL*; 



CURSOR 

PRINT " 

PRINT I 

PRINT I 

PRINT II 

PRINT " POUR LE MENU " ; IN 1 

PRINT IB*; 

Zfl*=INCH*(0! :ZOX=OSC<ZO*> 
IF Z0X=253 THEN P0X=P0X-1 
IF Z0X=254 OR ZQX=223 THEI 
IF Z0X=255 THEN P0X=P0X+1 
IF ZRX=218 THEN PRINT IH* 
IF ZGX=219 THEN PRINT IH* 
THEN PRINT IH* 



GOTO 190 

! 450 

GOTO 190 
:GOTO 6O0O 
:GOTO 5000 
:GOTQ 7290 



I MODE COMMONDE, OPPUYEZ SUR 



IF ZAX = 2 

GOTO 360 

PRINT IH*; 

CURSOR 23, H PRINT IZ* 

CURSOR 24.15:PRINT IK' 

PRINT IN*;" COM ";IL»; 

IF PX=10 THEN PX=1 

CURSOR LX(PX) , CX<PX)+LEN(RU*<PX) ) +5 

IF ZAX=254 THEN 570 

ZA*=INCH*(0) :ZBX=ASC(ZA*> 

IF Z8X=13 THEN PX=PX*l:GOTO 490 

IF ZBX=216 THEN 200 

IF ZBX=221 THEN 570 

GOTO 520 

PRINT IU*: 

FOR IX-1 TO LGXtPX) :PRINT " ";:NEXT IX 

PRINT IV*; 

REM 

REM WMMHHHMMHHHHHHMNHi GESTION DU CURSEUR ««»»»»»*** 

NBX=0:PR*="" 

CURSOR LX<PX> ,CX(PX)+LEN<RU*(PX) )+5:PRINT PR*; 

ZA*=INCH*<0> :ZCX=ASC(ZA») 

IF ZCX=216 THEN GOSUB 1000:G0T0 200 

IF ZCX=8 OND NSX=0 THEN PRINT CHR* (7 1 ; : GOTO 630 

IF ZCX=B THEN PRINT ZO*;" " ; ZO* ; *NBX=NBX- 1 : PR*=LEFT* 

IF ZCX=13 OND Z0X=223 THEN GOSUB 1000 : ZBX=ZCX : GOTO 530 

IF ZCX=13 THEN G05UB 1000 : PX"=PX* 1 : GOTO 490 

PRINT ZO*: :PR*=PR**ZO*:NBX=NBX+l 

IF NBX<LGX<PX) THEN 640 

IP NBX=LGXIPX) OND ZAX=223 THEN GOSUB I 000 : ZBX= I 3 :GOT0 530 

IF NBX=LGX!PX) THEN ZCX=13:G0T0 700 

END 

REM 

REM »*•«*»«»•»*•»»• OFFECTOTIDN DE ZONE »«»#**•»*«*»#*••» 

IF NBX = THEN 1040 

EM*CPOX. PX)=PH* 

RETURN 

REM 

REM ».•»■•«•»«» SOUS PROGROMME D'ODDITION EC'""ri';cC r : ANN. ** 



&■/.) J GOTO 640 



REM •»•••<••••• 

TT3-0 

FOR JX=DX TO IX 

PRINT TAB'&4>!" 

DX= I X+ 1 

RETURN 

REM 



LISTE DES ECHEONCES DE L'ANNEE 



REM 

REM »•••••*••••«•«««»##**»#••***•*»••»*•«•#••••••**#»**«««*•»« 

print ia»; 

CURSOR 12.20IPRINT "DONNEZ-MOI LEB DEUX DERNIERS CMIFcres" 

CURSOR 14.20:PRINT "DE L'ONNEE A ETUDIER >>>>>>>>>> "j 

inriutto.ANy. 
PRINT IO»; 
NX-HTT-0 
FOR IX«1 TO SX!SG-*1 !FM*-EM*(IX,4> 

[F ■■■><■< <1MGHT*(FM*. 2>>>0NX THEN 2320 

U Vftt (RIBHT«(EM*(IX, 5) , 2) l (ANX THEN 2320 

IF VAL(RIGHT*(EM*(IX,5> , 2) > -ANX THEN 21=0 ELSE 2130 
N£X»INT(VPL(M1D*<EM*<IX.5) ,3.21 ) - 1 *VAL <EM* ( I X. 7) ) ) / I VAl. (EM* I IX 
SG--1 iFM»-EM»( IX, 5> (GOTO 2190 

IF VflLCRIBHT«(6M«<I*.4>,2))»flNX THEN 2160 ELSE 2180 

NEX-IHT (12 -VAL < MI D* (EM* ( I X. 4 ) , 3. 2). I "VOL (EM* < IX, 7) I ) / (VOL (EM* (I 



GOTO 2190 

NEX= INT (I 2/ (VOL (EM* (IX, 7) >) I 

A»=LEFT»(FM*, 2) 

IF IX<10 THEN B**STR*( IX) IB*=MID*'B». 

IF IX>=10 THEN B*=STR*(IX> :B*-MID«IB» 

VL*=MID*(FM*. 3, 2)»0*+B* 

VL*VOL(VL*> 

FOR Jjt-O TO NEX-1 

V(NX)=VL+((10000»VOL<EM*<IX,7) ) ).JX>" 

IF INT( (V(NX) )/10000)> 12 THEN V(NX)=V 

IF (JX=0 OND VOL(RIGHT*(EM*(IX, 5) , 2) ) 



PE(NX) =VOL(EM*i 
TT=TT+PE(NX) 
NX=NX+1 
NEXT JX 



CLEOR GX(») , DX( 

NX-NX-1 

NlX=INT(NX/2) 



IX. ■ 



DIM GX(I 



,DX( 



CLOSSEMENT DES ECHEONCES 



I1X) 



),V(JX 



: J%=JX- 



TX)=DX 



2740 
2750 
2760 
2770 
2780 
2790 
2795 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 

3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
34 20 
3430 
3460 
3450 
4000 

4010 

4020 
4030 
4040 
4050 
1060 



PTX=l :G/. ( 1 ) =1 :DX(1)=NX 

GX=GX(PTX) sDX=DX(PTX) :PTX=PTX-1 

IX=GX: JX=DX:X=(V(GX) *V(DX) ) /2 

IF V(IX) (X THEN IX=IX*l:GOTO 2430 

IF V(JX))X THEN JX=JX-l:GOTO 2440 

IF IX(=JX THEN SWOP PE ( IX) . PE < JX) JSWAP • 

IF IX<=JX THEN 2430 

IF IX<DX THEN PTX=PTX+1 : GX (PTX> = I X: DX (I 

IF GX(JX THEN DX=JX:GOTD 2420 

IF PTXOO THEN 2410 

REM 

REM .*•»••...»... EDITION DES ECHEONCES CLOSSEES ttHHtttftM 

GOSUB 6200 

PRINT 

PRINT T0B<7> ; "*#»**»»•# *•••.*#•#*»**«**.**«......*............. *•.... 

PRINT TAB(3> ;"««»**** ";"LIBTE DES ECHEONCES D" EMPRUNT POUR L'ANNEE "; 

PRINT ANX;" »»««««»" 

PRINT TAB (7) ; "*####*»# •••<••<•••*•*><••*■•• ••«•«*«■**■•»••«■.........••" 

PRINT:PRINT TAB (3) ; "DATE" ; TOB (20) ; "ORIG INE" ; TAB ( 3S> ; "DESTINATION" ; 

PRINT TAB(50) ;"MONTANT DE L" ECHEANCE" : PR INT 

DX=1 

FOR IX=1 TO NX 

VL*=STR*<V(IX)> 

IF LEN(VL*) (B THEN VL*=" 0"+R IGHT* ( VL«, 6) 

VL*=MID* (VL*, 2, 6) 

GX=VAL( RIGHT* (VL*. 2) > 

A*=LEFT*(VL*. 2) : B*=MID* ( VL*, 3, 2) 

PRINT T0B(1> ;B*;TAB(4) ; A*; TOB (7) ; ANX; TOB (20) ;EM*(GX,2> ; TAB (35) ;EM*(GX, 3) ; 

PRINT TAB(53>;" ";:PRINT USING '•#•»•••«* ,PE (IX) I 

IF (1NT(V(IX-*1> /1OO0O) ) ) (INT(VdX) /10000) ) THEN GOSUB ] SOO 

IF IX=NX THEN GOSUB 1500 

PRINT 

NEXT IX 

PRINT 

PRINT T0B(36>;"T T A L ))>>>))) ";:PRINT USI NG " *•!**#«. (m* . TT 

PORT OiPRINT "OPPUYEZ SUR UNE TOUCHE . . . " : ZA*= I NCH* (0 ) 

REM 

REM «*«*#•«*»##» ENREGIBTREMENT ECHEANCES DE L'ANNEE •»*««»*•»»•• 

PRINT IA»;:CURSOR 12,5 

PRINT "VOULEZ-VOUS ENREGISTRER LA LISTE DES ECHEANCES DE" ; ANX; " <0/N> "; 

ZO*=INCH*(0> 

IF ZA*="N" OR ZA*="n" THEN 7290 

0*=STR*<ANX) :0*=MID*(O*,2,2) 

A* = "0, DETTE"*A*+". TXT" 

OPEN NEW A* OS 2 

PRINTtt2.NV. 

FOR IX=1 TO NX 

PRINT«2.V<I7-> , ". ",PE 

NEXT IX 

PRINT»t2,TT 

OPEN "O.TOTODET.DOT" 

DIM t(3.T(25) 

0NTX=ONX-76 

T(ANTX)=TT 

CLOSE 2: CLOSE 3 

GOTO 7290 

REM 

REM »»»»*»**»*»«*«»• 

REM *#,»»**,#«...##» 



© 



0&*- 



PROGRAMME DE SIMULATION 



EVOLUTION DE LA DETTE SUR DI X ANS 



' INFLATION EVOLUE PAR AN 



REM 

REM *#•#»»• 

PRINT IOt; 

CURSOR 12,4 

INPUT*0. "DONNEZ LE TAUX MOYEN 

IM=(100+IM)/100 

PRINT 10*; 

CURSOR 10. 16:PRINT"P0UR OBTENIR LO COURBE DES VARIATIONS DES"; 

CURSOR 12, 16:PRINT "REMBOURSEMENTS DE VOS EMPRUNTS SUR 10 ANS,"; 

CURSOR 14, 16SPRINT "DONNEZ ICI LES DEUX DERNIERS CHIFFRES DE" ; 

CURSOR 16, 16:PRINT "LA PREMIERE ONNEE O ETUDIER )>>))>}>> •' ; 

INPUT«0,ANi% 

0N2X=ANtX*9 

PRINT 10*; 

CURSOR 12.41PRINT "DRNS DUELDUES INSTANTS, JE VOUS DONNE LE GRQPHIOUE 

0X=1 

FOR ONX=ANIX TO 0N2X 

GOSUB 2080 

IF IM=1 THEN TO(OX)=TT 

IF IM>1 THEN TA(AX>«TT/(IM"(AX-1 )) 

A*-0X+1 

NEXT ONX 

FOR IX=1 TO 10 

FDR JX-I TO 10 

IF TO(IX) <TA(JX) THEN 3300 ELSE 3260 



A suivre: 

En raison de la longueur 
inhabituelle du listing, 
nous passerons ce pro- 
gramme en deux fois. 

La Redaction 



NEX 



JX 



:TO(IX)=INT( (TO(IX) 



TO 22 



PGN=TA(IX> 

NEXT IX 

K=PGN/22 

FOR IK-1 T( 

PRtNT 10*; 

FDR IX=0 TO 9 

FOR LGNX=24-T0( IX 

CLX=6+7-IX 

FOR J*»0 TO B 

CURSOR LGNK,CLX+JX:PRINT "I"; 

NEXT JX 

NEXT LGNX 

CURSOR 21.7<7-IX:PRINT 0N1X»190' 

NEXT IX 

ZO«=INCH»<0> 

IF ZO*»CHR*i; 

GOTO 7290 

REM 

REM •••••■••■■ SOUS PROGRAMME UT1LIT0IRES FLEX 

REM ••»■•»••••••••••••••••••••••••••• ' 

PRINT 10*; 

CURSOR 12, 1": INI MM 

0*-"EXEC. ' -+JW+ 

EXECUTE A* 



CHR* (27) ;Cnn*t 1201 



"DONNEZ VOTRE COMMANDE C LE 




a suivre 



DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
formule, pourtant nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous les trimestres ! 
Et avec des prix dig nes des pro- 
grammes que vous allez nous 
envoyer! 

De plus, ce seront ies lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitraire, HEBDOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAL) Xet FRANCAIS.Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialises vous dira comment 
I'ameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer, il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a I'utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Regiement: 

ART. 1 : HEBDOGICIEL organise 
de fagon mensuelle et trimes- 
trielle un concours dote de prix 
recompensanl le meilleur logi- 
ciel du mois et du trimestre. 
ART. 2 : Ce concours est ouvert a 
lout auteur de logiciel quelque 
soit le materiel sur lequel il est 
realise, L'envoi d'un logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
journal constitue I'acte de can- 
didature. 

ART. 3: La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de loriginalite les logi- 
ciels qui sont publies dans le 
journal. 

ART. 4: Ce sont les lecteurs qui, 
par leur vote, determinent les 
meilleurs logiciels mensuel et 
trimestriel. 

ART 5: Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel. 
ART. 7: Le present regiement a 
ete depose chez Maitre Jauna- 
tre, 1, rue des Halles 75001 Paris. 
ART. 8: HEBDOGICIEL se reser- 



ve le droit d'interrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant. 

ART. 9 : La participation au con- 
cours entraine I'accepiation par 
les concurrents du present re- 
giement. 

HEBDOGICIEL: 27, rue du Gal 

FOY - 75008 PARIS. 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordin ateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systeme 
de depouillement du vote. 



BON DE PARTICIPATION 



Nom : 

Prenom - 

Age: 

Adresse : 

n D telephone : 

Nom du programme : 

Nom du materiel utilise ; 

declare etre I'auteur de ce programme qui n'est ni une imitation ni 
une copie d'un programme existant. Ce programme reste ma pro- 
pnete et j'autorise HEBDOGICIEL a le publier. La remuneration pour 
les pages publiees seront de 1 000 francs par page (un programme 
n'occupant pas une page entiere seta remunereau prorata de la sur- 
face occupee). 
Signature obligatoire ; 
(signature des parents pour ies mineurs). 

Le programme doit etre expedie sur support magnetique (cassette 
ou disquette) accompagne d'un Descriptif Detaille du Materiel uti- 
lise, d"une Notice d'Utihsation du Programme, et d'un emballage 
timbre permettant la reexpedition du materiel non publie. 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITE NT FAIRE 
PUBLIER UN PROGRAMME : 

• Indiquez sur le support 
magnetique lui-meme votre 
nom, le nom du programme et le 
materiel auquel il est destine. 
Rien n'est plus difficile que d'es- 
sayer de charger un programme 
d"Applesur PC 1500. 

• Notez dans les premieres 
lignesde votre programme, sous 
forme de REM, votre nom, le nom 
du programme et le materiel 
auquel il est destine. Nous pour- 



rons ainsi reperer facilement les 
listings, une foissortisde I'impri- 
mante. 

• Dupliquez plusieurs fois sur !a 
meme cassette et a des niveaux 
d'enregistrement differents 
votre programme. Nous aurons 
plus de chances d'arriver a le 
charger si les magnetophones 
ne sont pas tout a fait compati- 
bles. 

• Envoyez un seul programme 
par support magnetique et un 
seul mode d'emploi par pro- 
gramme. Votre lettre d'accom- 



pagnement et vos autres cour- 
riers doivent egalement etre 
separes car traites par d'autres 
services. 

• Joignez, si possible, un listing 
du programme et un organi- 
gramme. 

• Enfin,lefindufin,expliquezles 
particulates de votre ordina- 
teur et le moyen d'adapter votre 
programme a d'autres ordina- 
teurs. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



SQUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



LOGISTICK OFFRE UNE 
GAMME COMPLETE DE 
SES CASSETTES DE JEUX 
POUR LE MEILLEUR LOGI- 
CIEL DU MOIS FX 702 P 
ET POUR LE MEILLEUR 
LOGICIEL PC 1500. 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRE, INTERFA- 
CEERS.23 2.C. 



GILLES GRAPINET A MIS LE GRAPPIN ! 



GAGNANT DU CONCOURS MENSUEL HEBDOGICIEL 

Gilles GRAPINET, 13009 MARSEILLE, pour son pro- 
gramme "Mortelle randonnee" sur T! 99/4 A, gagne 
10 000 francs. 



GAGNANT DU CONCOURS TRIMESTRIEL 
HEBDOGICIEL 



GillesGRAPINET. 13009MARSEILLE,! 
en Californie. 



gneun voyage 



GAGNANT DE LA BROTHER EP.22 
OFFERTE PAR DURIEZ 



Gilles GRAPINET. 13009 MARSEILLE 



GAGNANT DE L'ORDINATEUR ALICE 
OFFERT PAR HACHETTE 



Gilles GRAPINET, 13009 MARSEILLE 



GAGNANT DES DEUX CASSETTES 
OFFERTES PAR SQUIRRELLE 



Michel PIPON, 57100 THIONVILLE, pour son pro- 
gramme "Centrale nucleaire" sur ORIC 1. 



GAGNANTS DES LIVRES "REGLE A CALCUL" 

Luc LEVY 94250 GENTILLY pour CARRE DIABOLIQUE sur 

CANON X07. 

Alain PRE 69007 LYON pour DESSIN sur GOUPIL. 

Olivier FRANCE 77290 MITRY LE NEUF 

pour DONJON ET DRAGON sur PC 1500, 

J. -Marc FRATARD 59174 LA SENTINELLE 

pour DIETETIGUE sur TRS80. 

Vincent GRENET 75017 PARIS 

pour PROGRAMMATION sur APPLE II. 

Gerard LECANNU 44240 LA CHAPELLE SUR ERCHE 

pour PUISSANCE 4 sur MZ 80. 

Nicolas BAUDIMENT 44200 NANTES 

pour CAVATTACK sur SPECTRUM. 

Joel GIRAUD 33000 BORDEAUX 

pour OTHELLO sur Tl 99/4A Basic Simple. 

P -Yves CHEVALLIER 38100 GRENOBLE 

pour BARON ROUGE sur T07, 

Philippe BARREAU 68800 THANN 

pour WALLSTREET sur CASIO FX 702 P. 

Michel PIPON 57100 THIONVILLE pour CENTRALE sur ORIC 1 

J THIRIAT 54700 PONT A MOUSSON 

pour SPACE MONSTERS sur COMMODORE 64. 

J CAPDEVIELLE 33600 PESSAC. pour MINI PAC sur VIC 20. 

Pierre-Andre LOTHE 62700 SAINT OMEF1 

pour MASTERMIND sur HP 41, 

Pascal et Eric HOST ACHY 38850 PEAGE 

pour GLOUTON sur MPF II. 

Bernard GOURC 07158 MONTIGNY LES METZ 

pour KING KONG iur ZX 81, 

QINea GRAPINET 13009 MARSEILLE 

pour MORTELLE RANDONNEE sur Tl 99/A4 Basic Etcndu 



Suite de la page 1 



~ Di 




IDVJvr 




YG0T0 "I" 


r' 


Is 


IW'W 


1060 


2*=INKEY* : 
IF 2*=" "THEN 


GCURS0R 1J9: 




?";Y:Y=Y-'100 




1085 


GPRINT C$: 




:CLS :X=0, 


1020 


H=H-SGN (ASC 


GCURS0R 21. 




tiiie =0 




2*-10.5) 


GPRINT D*. 


1010 


:REM AFFICHAG 


1080 


G=1NT <2aH+. 


GCURS0R 119; 




E DU PARCDUR 




5) 


GPRINT ES 




S 


1085 


S=R, R=Q, Q= 


960:GCURSOR 21! 


1015 


"Y"F0R J-=l TO 




POINT P 


GPRINT F*: 




14: IF 1 = 1 


1090 


GPRINT SiGOR 


GCURS0R 119: 




GCURSOR 13 




RJGOR q 


GPRINT G*: 


1020 


QQ=RND 16: IF 


1100 


IF Q+GOCQ0R 


GCURS0R 16: 




A*="N"LET QQ 




G)G0SUB "B 


GPRINT H*; I*: 




=RND 8*2-1 


1110 


NEXT P: IF H< 


GCURS0R 112: 


1025 


RESTORE 1299 




>3THEN 1050 


GPRINT J*;K«: 




+QQ 


1120 


PRINT "BRAU0 


GCURSOR 15: 


1030 


READ A*<0>, A 




! !":BEEP 5 


GPRINT L*;n*;N 




*Cl;:GPRINT 




, 200, 50:X=X+ 


* 




A*(2); 




1SCLS :G0T0 


920: GCURSOR 112: 


1040 


NEXT I: 




"Y" 


GPRINT o*;p*;q 




GCURSOR 154: 


1190 


REM ACCIDENT 


* 




GPRINT "F2 


1200 


"B"F0R 1 = 1 TO 


990: BEEP 10, 200, 20 


1045 


REI1 B0UCLE P 




30: POKED R40 


: CLEAR 




OUR ATTENDRE 




00, RND 255: 


1000: "U"UAIT 0: 




LE DEPART 




NEXT I 


CLEAR :Dln A 


1048 


"0"BEEP 1, 20 


1210 


0=0, P=2, G=0, 


*C1>*20 




0, 9: IF 




H=0, R=0 


1005: BEEP 1: INPUT 




INKEYS ="" 


1220 


"P"BEEP 1,20 


"Debutant ?" 




GOTO "0" 




0, 9: IF 


;At:UAIT 0: 


1050 


R£T1 DEPLACI 11 




INKEY* ="" 


IF A*<>"0" 




ENT DU S0US- 




GOTO "P" 


LET 2=) 




HAR1N 


1230 


RETURN 


1002: BEEP 1: INPUT 


1055 


FOR P=2T0 15 


1240 


REM DESSINS 


"Durcc de je 




4: GCURSOR P- 




S0US-MARIN5 


u on minutes 




2: IF T1I1E >= 




POUR TITRE 



1250:DATA "40", "6 
0", "402040", 
"40602860", " 
60286040", "6 
0202C2.0", "20 
2C2060" 

1255:DATA "404040 
404020282E", 
"28404040404 
04040", "4040 
404040404028 
", "2E2820404 
040404 

1258: DATA "406060 
606060282C", 
'2F2C6060606 
06060", "20" 

1260: DATA "206060 
606060602C", 
"FF2C2860606 
06060", "40" 

1220:REH FIN DU T 

eups import i 

-> RESULTAT 
S 
1225:"I"BEEP 5, 10 
0, 20:CLS : 
WAIT :PRINT 
"En";Y*100;" 

m i nut es " : 
PRINT "vous 
ouez rentre" 
1280:PR1NT X;" so 
us -mar Ins ": 
END 

Suite page 14 



Suite de la page 6 



-v#s 



80 



5448 7A 

5449 B7 

544A 20D9 

544C D3FF 
544E C9 



344F D5 
5450 1689 
5452 37 

- 5453 3809 
5455 0S19 
5457 10FE 

5459 00 
545P 7F 
545B 7F 
545C 1814 

545E 3E05 

5460 D3FF 
5462 0E0B 
5464 10FE 
5466 3E0S 
5468 D3FF 
546A 0E0B 
54EC 10FE 
545E 3E04 
5470 D3FF 

5472 0E14 
5474 10FE 
5476 CB19 

5478 15 

5479 20DB 



02330 
02340 
02350 

02370 

02330 



LD A.D 

OR 

JR NZ.MBL50 

OUT (0FFH). A 

RET 

ECRITURE D'UN OCTET A 2700 BRUDS 



02470 BUBYTE 

02480 

02490 

02510 BU10 

02520 

02530 

02540 

02550 

02560 

02570 

02590 BU20 

02E00 

02610 

02620 

02830 

02 640 

02650 

02660 

02E70 



8 BITS * START BIT 



BIT A ZERO 



OUT 



DJNZ 



02700 BW30 

02710 

02720 

02730 DEC 

02740 JR 

02760 LD 



t BIT A UN 



SEPARATION ENTRE BITS 



SEPARATION ENTRE OCTETS 



547F Dl 


02790 


POP 


DE 




5480 C9 


02800 


RET 








02830 ; C 


P I E DISOUETTE — ) 


CASSETTE 


0003 


02850 RESTOR 


EQU 


3 




0013 


02860 SEEK 


EQU 


13H 




5481 310053 


02870 START 


LD 


SP. 5300H 




5484 2IPE59 


02890 


LD 


HL. MSG2 




5487 CD8753 


02900 


CALL 


M5G 




5480 21B556 


02910 


LD 


HL. MSG3 




548D CD8753 


02920 


CALL 


MSG 




5490 CDAA53 


02930 


CALL 


ENTER 




5493 3E01 


02950 


LD 


A> 1 




5495 32E037 


02960 


LD 


(37E0H), A 




5498 3E03 


02970 


LD 


A, RESTOR 




549A 32EC37 


02980 


LD 


(37ECH),A 




543D 010000 


02930 


LD 


8C.0 




54A0 CD60E7> 


03000 


CALL 


60H 




54A3 CDA259 


03010 


CALL 


BUSY 




54A6 3E0A 


03020 


LD 


A. 10 ; BUFFER 


32K +*++++ 


54A8 32A750 


03030 


LD 


(LTRACK), A 




54AB 216157 


03050 5TR02 


LD 


HL.MSG18 1 


PI5TES 


54AE CD8753 


03060 


COLL 


MSG 




54B1 CDE855 


03070 


CALL 


COM IN 




54B4 79 


03080 


LD 


A.C 




5485 FE02 


03090 


CP 


2 




54B7 20F2 


03100 


JR 


NZ.STR02 




54B9 3A775A 


031 10 


LD 


A, CCOMBUF) 




54BC FE31 


03120 


CP 


* r 




54BE 38EB 


03130 


JR 


C.STR02 




54C0 FE3A 


03140 


CP 


*9* +1 




54C2 30E7 


03150 


JR 


NC. STR02 




54C4 D630 


03160 


SUB 


'0' 




54CB 87 


03170 


ADD 


A, A 




54C7 47 


03180 


LD 


8. A 




54C8 87 


03130 


ADD 


A. A 




34C3 87 


03200 


ADD 


A. A 




54CA B0 


03210 


ADD 


A.B 




54CB 47 


03220 


LD 


B, A 




54CC 3A7S5A 


03230 


LD 


A, CCOMBUF+1) 




54CF FE30 


03240 


CP 


'0* 




54D1 3BD8 


03250 


JR 


C. STR02 




54D3 FE3A 


03260 


CP 


'9' +1 




54D5 30D4 


03270 


JR 


NC.STR02 




54D7 D630 


03280 


SUB 


■0' 




54D9 80 


03290 


ADD 


A.B 




54DA 3D 


03300 


DEC 


A 




340B 32A95A 


03310 


LD 


(NTRACK).A 




54DE 3A775A 


03320 


LD 


A. (CQMBUF) 




54E1 329C5A 


03330 


LD 


CMSG211). A 




54E4 3A785A 


03340 


LD 


A. CCOMBUF+1) 




54E7 329D5A 


03350 


LD 


(MSG211+l),ft 




54EA 213C57 


" 03370 


LD 


HL.MSG17 ; 


NOM CASSETTE 


54ED CD8753 


03380 


CALL 


MSG 




54F0 CDE855 


03330 


CALL 


COM IN 




54F3 79 


03400 


LD 


A.C 




54F4 B7 


03410 


OR 


A 





54F5 21AC37 


03420 


LD 


HL. HSG20 




34F8 2B83 


03430 


JR 


Z.STR01 




54FA 21775A 


03440 


LD 


HL. COMBUF 




54FD U0153 


03450 STR0I 


LD 


DE. CASNAM 




5500 010600 


03460 


LD 


BC.6 




5503 EDB0 


03470 


LDIR 






5505 218657 


03490 


LD 


HL.MSG13 


: COMMENTAIRES 


5508 CD8753 


03500 


CALL 


MSO 




550B CDE835 


03310 


CALL 


COM IN 




5S0E 21D436 


03530 


LD 


HL.MSG4 


t PLACER CASSETTE 


5511 CD8733 


03540 


CALL 


MSG 




3314 CDAA53 


03330 


CALL 


ENTER 




5517 21F056 


03560 


LD 


HL.MSG12 




551 A CD8753 


03570 


CALL 


MSG 




551 D F3 


03590 


DI 






551E 210F33 


03600 


LD 


HL. LOADER-2 


*. CALCUL DE LA 


5521 06EA 


03610 


LD 


B,FINLDR-L0ADER+2 ; CHECKSUM 


5523 AF 


03620 


XDR 


A 


: DU GHARGEUR 


5524 86 


03E30 WRT30 


ADD 


A. (HL) 




5525 23 


03E40 


INC 


HL 




5526 10FC 


03650 


DJNZ 


WRT30 




5528 77 


03660 


LD 


(HL).A 




5529 CDA153 


03680 


CALL 


WRHOR 


! ECRITURE DE L' AMORCE 


552C 06FD 


03700 


LD 


B, FINLDR-M8UF 


+4 


552E 210053 


03710 


LD 


HL. WBUF 




5331 7E 


03720 WRT40 


LD 


A. CHL) 


; ECRITURE DU CHARGEUR 


5S32 23 


03730 


INC 


HL 


i RAPIDE 


5533 CDAFS5 


03740 


CALL 


MBYTE 




553E 10F3 


03730 


DJNZ 


WRT40 




5538 21B257 


03770 


LD 


HL.COPY 


? ECRITURE DU PROGRAMME 


553B 11F802 


03780 


LD 


DE, BUFFER-COPY 1 DE CHARDEMENT 


533E CDFE53 


03790 


CALL 


WBLOC 


; AUTOMAT I DUE 


5541 3E00 


03810 


LD 


A.0 




3343 F5 


03820 HRT50 


PUSH 


AF 




5544 212357 


03B30 


LD 


HL.MSG16 




5547 CD8753 


03B&0 


CALL 


MSG 




554A Fl 


03850 


POP 


AF 




554B F5 


03860 


PUSH 


AF 




554C 4F 


03870 


LD 


C. A 




554D 3AA35A 


03880 


LD 


A, (NT RACK) 




5550 31 


03890 


SUB 


C 




3551 3C 


03900 


INC 


A 




5552 4F 


03310 


LD 


C. A 




5353 3AA75A 


03320 


LD 


A. (LTRACK) 




5556 B9 


03930 


CP 


C 




3557 2807 


03940 


JR 


Z. WRT60 




5559 FAS055 


03950 


JP 


M. WRT60 




555C 79 


03950 


LD 


A.C 


■ 


555D 32A75A 


03970 


LD 


CLTRACK), A 




5560 Fl 


03980 URT60 


POP 


AF 




5361 F5 


03330 


PUSH 


AF 




55S2 CD2656 


04000 


CALL 


RDBUF 




5565 210537 


04010 


LD 


HL.MSG15 




5568 CDB753 


04020 


CALL 


MSG 




556B 210000 


04030 


LD 


HL.0 




55EE 11000A 


04040 


LD 


DE. 2560 




5571 3AA75A 


04050 


LD 


A, (LTRACK) 




5574 47 


04060 


LD 


B.A 




5575 19 


04070 WRT70 


ADD 


HL.DE 




5576 10FD 


04080 


DJNZ 


WRT70 




5578 EB 


04030 


EX 


DE.HL 




5573 CDA155 


04100 


CALL 


MRHDR 




557C 7B 


04110 


LD 


A. E 




557D CDAF55 


04120 


CALL 


MBYTE 




5580 7A 


04130 
04140 


LD 
CALL 


A.D 
MBYTE 




3581 CDAF55 




5584 7A 


04150 


LD 


A.D 


A suivre: 


5585 83 


04160 


ADD 


A. E 


En raison de la longueur 


5586 CDAF55 
5589 21AA5A 


04170 
04180 


CALL 
LD 


MBYTE 

HL, BUFFER 


inhabituelle du listing. 


558C CDFE53 


04130 


CALL 


MBLOC 


nous passerons ce pro- 


55BF Fl 


04200 


POP 


AF 


gramme en deux fois. 


5590 4F 


04210 


LD 


C. A 




5531 3AA75A 
5594 81 


04220 
04230 
04240 


LD 
ADD 

LD 


A, (LTRACK) 

A.C 

C. A 


La Redaction 


5595 4F 




5596 3AA95A 


04250 


LD 


A, (NTRACK) 




5599 91 


042E0 


SUB 


C 




553A 79 


04270 


LD 


A.C 




559B F24355 


04280 


JP 


P.MRT50 




559E C39953 


04300 


JP 


SYSTEM 


a suivre 



Suite de la page 9 



3310 FOR L-10 TO IS 

3320 CALL HCHARIL. 12, 126, 10) 

3330 NEXT L 

3540 T*-"(.OT0MfiTH" 

3530 FOR 1-1 TO B 

3360 CULL HCHARI13. 1 2* ! . ASC <SEG» 

3370 NEXT I 

3560 CALL KEV(O.K.S) 

3390 IF S-0 THEN 3580 

3600 C-2 

34.10 GOSUB 3340 

3620 RETURN 



T\ 



9 9/A* 



3630 DATA SB7 


494 


1,387.494,2, 704,494, 1 


,704,639. 1 


740.587, 


,639.323, 


,334 


446,2, 


659,323. 1,587 




3 












3640 DATA 507 


570 


3,523,440,3 












3650 DATA 659 




3.307,494.3 




























659,523. 1,587 


494 


3 












3670 DATA 3B7 




3,323,440,3 












36S0 DATA 8B0 


32 3 


3,704.494,6 










■ 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVE2 VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM: 
PRENOM : 
ADRESSE : 
REGLEMENT JOINT: 



MATERIEL UTILISE : 
CONSOLE: 
PERIPHERIQUES : 



□ CHEQUE 



DCCP 



FICHIER D'ADRESSE 



VoilS une gestion de fichier d'adresses modulaire et effi- 
cace. N'oubliez pas de saisir I'adresse d'Hebdogiciei en 
prevision de votre demande d'abonnement ! 

Jean-Jacques TANGHE 
Mode d'emploi : 

Ce programme est, en fait, un ensemble de programmes destines a 
gerer un fichier d'adresses nomme FILEADRESS. 
Pourquoi un ensemble de petits programmes plutot qu'un pro- 
gramme unique? Simplement pour conserver un maximum de 
place en memoire pour 1'introduction des donnees. 
Ces programmes sont tousecrits en BASIC APPLESOFT a I'excep- 
tion de CHAIN qui est une routine bien conn ue des utilisateurs de 
I'APPLE Meet qui setrouve sur la diskette MASTER du D.O.S. ilest 
important pour I'execution du programme que cette routine soil 
presente sur la diskette utilisee pour le fichier d'adresses. Pour I'y 
mettre. se referer a la page 101 du manuel DOS. 
La diskette est initialised par le programme ADRESS MENU afin 
d'obtenir un systeme « autostart ». 



Le programme INIT ADRESS sert a fabriquer les premiers fichiers 
(vides) FILEADRESS et ARCHIVES. Lorsque I'on rentre les pro- 
grammes au clavier, a vant la premiere utilisation de la diskette, (aire 
RUN INIT ADRESS afin de generer les fichiers qui seront ulterieu- 
rement utilises puis ■ rebooter le DOS ». 

Dans le cas de la diskette que je vous ai envoyee. inutile d'utiliser 
INIT ADRESS : Les fichiers existent deja. Ms conliennent des noms 
d'hommes politiques francais celebres afin que vous puissiez tout 
de suite tester le programme. II vous suffit done de booter votre 
systeme APPLE lie avec cette diskette pour acceder au programme 
ADRESS MENU. 

Ce programme, en plus de sa fonction de menu, charge les tables et 
les variables qui seront utilisees ulterieurement. 
Vous avez done maintenant acces a tous les programmes de la 
diskette qui lonctionnent comme suit : 

R ADRESS : Pour 1'ecriture de nouvelles fiches. Les formats fixes 
(telephone, codes postaux) repassent automatiquement a la ligne 
apres I'introduction des donnees et empechenl ("entree de carac- 
teres alphanumeriques. Pour revenir au menu, r^pondre 'N' a la 
question 'Y A T-IL D'AUTRES FICHES A TRAITER'. 
L ADRESS : Recherche dans le fichier par n'importe quelle rubri- 
que. Pour changer de rubrique, appuyer sur la touche 'return'. 



Entrer le nom ou prenom ou adresse (...) ou materiel recherch* 
L'ecran affiche alors sous le format carte de visile les different©* 
donnees trouveeset attend la frapped'une touche quelconque pour 
contmuer sa recherche. Des que la recherche est termtnee. il 
affiche 'C'EST TOUT' et revient au premier affichage. La touche 
TAB (— )u) est alfectee a une tache speciale : EUe permet de (aire 
defiler tout le fichier toujoursau format carte devisite'. Pour revenir 
au menu, appuyer sur la touche 'Esc'. 

M ADRESS: Modification d'une fiche quelconque. La recherche 
s'effeclue comme pour L ADRESS maisle format ne change pas. Si 
vous desirezfaire une modification (exemple adresse). appuyezsu' 
'RETURN' jusqu'a ce que vous soyez devant la rubrique a changer 
puis entrez la nouvelle adresse. Pour revenir au menu principal, 
repondez N' a la question 'Y A TILD'AUTRE FICHES A TRAITER'. 
S ADRESS: Suppression d'une fiche quelconque. Recherche 
comme dans M ADRESS La suppression d'une fiche entralne sa 
copie dans le fichier "ARCHIVES' en vue d'une exploitation 
utterieure. 

DEL ADRESS : Ce programme efface les fichiers existants et les 
reinitialise. Une securite empeche de les effacer par megarde. 
LA ADRESS: Ce programme permet de lire les informations 
stockeesdans le fichier 'ARCH IVES'. Appuyer sur une touche quel- 
conque pour avoir I'information suivante. A la fin du fichier, la 
machine affiche la question ■ENCORE?'. Une reponse 'O' a cette 
question entraine la reprise de la lecture. Dans le cas contraire. le 
programme retourne au menu principal. 

REMARQUE: II est possiblequ'entre I'execution de2 programmes 
il y ait un temps d'arret : Ce n'est pas un arret mais simplement 
I'execution du programme 'CHAIN'. 



ADRESS MENU 



20 FOR S ■ I TO 7; READ FKSh READ PNE): NEXT S 

a vtab s 

39 PRINT 'SUE DES1REZ VOUS FAitrE :' 

48 PSiKT : PRINT : FOR 6 « I TO 7i WT« 8: PRINT Ft(E);6: NEXT 8: VTAB 24; PRINT 'VOTRE CHOI* : 

H 6tT OKti IF ASC (OKI) I 4? OR ASC (IB) ) IS THEN SO 

40 POKE 34,3: HOME : VTAB 11: INVERSE i PRINT SPtI( 40) • 
45 VTAB II: HTAB 11: PRINT ■•« CWRSEKENT mi- O 
W POKE 34 r D r . 
78 VTAB 13: PRINT SPU 40): NORNU W 

» M " " < OW\^\ 

32 PRINT M 

B3 ON vAL (CM) GOTO 100,120, 1*0,140, ISO, 290,220 

IOC PRINT W;*BL0A0 CHAIN,A520' 

no call sar* AHtEss' 

:?; print k ; 'Slqao cwin,A520" 

130 call 520'l adress' 

HO PRINT Kj'BLOAD CHftlN,A529" 

110 call 520'n adress' 

149 print w;'k.0ao chain,a520" 

ito cau sm'Sawess* 

IBS PRINT M|ffln DEL AORESS' 
200 PRINT Mi'BLOAD CHA1N,A520" 
210 CALL 52fTLA AORESS' 

a nciH 

1000 DATA 'Entrtr dtt fichu *,'R ADRESS', 'Llrt li ficttitr \'L ADRESS', 'Nodifitr dti fichti.. 

...','tl ADRESS*, 'Entim dtt fichft \'S ADRESS' 

IBID CAM 'Effit.r II fid in ■, 'DEL ADRESS', 'Lir. In Vcfciftl ', 'LA ADRESS' 

1170 DATA -Scrtir du preyaaM.....','FIN' 

I ICC PRINT Mj'QPEN FILEADRESS' 

1110 PRINT M;*REAO FILEADRESS* 

1121 INPUT I 

1139 INPUTS 

114) FORK- I TO I: FOR L- 1 TO t 
1150 INPUT A*(K,L) 

1140 NEXT L,X 

1170 PRINT »;*CL0SE FILEADRESS' 
1180 RETURN 




MENU": VTAS 2l PRINT ' 



ADRESS MENU 1 



10 HOC : PRINT "FICHIER D'ADRESSES 

20 FOR 6 * 1 TO 7i READ Ft'S): READ PNG): NEXT S 

25 VTAB 8 

3D PRINT 'SUE DES1RE2 VOUS FAIRE :' 

48 PRINT i PRINT : FOR 8 > I TO 7: HTAB 8: PRINT Fl(6)j6: NEXT E: VTAB 

H GET 0K«: IF ASC (OK*) ( 4? OR ASC <0M> > 55 THEN 50 

48 POKE 34,3: HOC : VTAB III INVERSE : PRINT SPC( 40) 

45 VTA9 12: HTAB II: PRINT '«> CHAR6ENENT "•' 

44 POKE 34,0 

70 VTA8 13: PRINT SPC< 40): NORMAL 

MM'" 

82 PRINT 0« 

83 ON UAL (OK*) GOTO 100,120,140,140,130,200,720 
100 PRINT Mj'BLOAD CRAIN,A520' 

119 CALL 520'* ADRESS* 

120 PRINT Mj'BLCW) CKA!N,A520" 
130 CALL 520'L AORESS" 

149 PRINT M;"BL0AD CHAIN,A520" 

150 CALL 520'H ADRESS* 

140 PRINT 0i;*BLOAO CHAIN,A520' 

170 CALL 520'S ADRESS* 

180 PRINT Mj'RIK 0£L ADRESS - 

200 PRINT Mi'BLDAO CHAIN,A520' 

219 CALL 520'LA ADRESS' 

220 80SUB 1100 

ISOO DATA *Efllrt' d*( (lcft»i ','RADRESS', 'Lift Iff fichiir.,.. 

...*,'« ADRESS*,' 'Enlmr On fichis *,*S AORESS' 

1011 DATA 'Effictr Iff fithitr ', 'DEL AORESS", 'Lirt 1m irchivt*.. 

1020 DATA 'Sortir &i progrnt *,"FIN' 

1199 IF VU = THEN RETURN 

1111 HONE : VTAB 12: HTA8 14i INVERSE : PRINT " 5AUVESAR0E ' 

1121 PRINT DV0PEN FILEADRESS' 

1130 PRINT Dtj'&EUTE FILEADRESS* 

1140 PR1HT Dli'OPEN FILEADRESS' 

lit) PRINT Dtj-URITE FILEADRESS' 

1151 PRINT J 

1140 PRINT A 

1171 FOR K • I TO 1 

I IS* FDR r[* I TO! 

!!?( PRINT Af'K,m 

1200 NEXT H,r 

1211 PRINT M|"a0SE FREADRESS" 

1221 VTA« 12: HTAB f] FLASH i PRINT ' SAIM6ARDE EFFEOOEE 'i FOR T ' I 



II X- 4:T ° 15 

14 1 • I • I 

29 FOR L • I TO 0: READ Bt(L)i NEXT L 

21 DATA 'NOM tVPRDW i*. 'ADRESSE i*,'VIUE I 

'.■NATEIIIEL I' 
72 HCM : PRINT -FICHIER D'ADRESSES": KtAO 32i VTAB h PRINT *PA6E ' 
23 VIAI !i PRINT ' * 



24: PRINT WRE CHOIX : 



PPV-EW 



,'L AORESS", "Nwfi'lrr flti flclH.. 
,"LA ADRESS' 



TO 2009: NEXT T: NORMAL I HOIE : ENO 



25 VTAB ii PRINT Bt(!>: 

30 PRINT M(5): PRINT : 

"OB X- iiJ- h 60SUB 2999 

110 X • t:J ' 2: G0SU8 2009 

120 X - 10:J ■ 3: 60SU8 2000 

130 X- 12:J> 4i GOSUB 2089 

140 X- I4:J > 5: SDSUB 2100 

150 X" 14:; ■ 4i 60SUG 2200 

140 X • 1B:J* 7: GOSUB 2000 

170 X • 20iJ > Bi GOSUB 200B 

m HCME : HTAB Ml PRINT 'UERRIFICATItW' 

900 FOR K » 1 TO 8: VTAfi 4 • X: PRINT X;: PRINT * ';: PRINT Aid,*): NEXT I 

»10 VTAB 20i PRINT "CEC1 VOUS CtHJIENT IL ?'ji SET OKfi PRINT CM: IF DKf < ) '0* THEN VTAB 20: PRINT "DUE VOUt. 

E2 VOUS MODIFIER ?'ji SOTO ?20 
9ii VTAB 20: PRINT "T A T IL D'AUTRES FICHES A TRAITER ?'] 
914 SET CMi IF OM < > "0" «C 0W ( ) "N' THEN ?14 
»17 IF OKI = *0' THEN ieOD 

)!S LU > UJ t l: GOTO 4010 

m err nui: if asc (nu«) < 4B or asc <ni») > 57 then in 

930 NU - VA1 (NUI) 

935 IF NU . 5 THEN HOME : VTAB 12: PRINT B*(5) :A*<! ,5) > 

934 IF NU* i THEN HOC : VTAB 12: PRINT Bt(4):At(l,4) > 

940 HOff i VTAB 12: PRINT BI(NU):Ai(],NU> ' *'iX ■ 12:J - NUi GOSUB 2OO0i HO* : 60T0 090 

1035 I - I t l! GOTO 22 

2000 Mtl.J) - "if- 15: HTAB T: VTAB X: INVERSE : PRINT SPCI 25) 
2002 HTAJ T; VTAB X: SET N»i PRINT N» 

2001 IF ASC <W> » 8 THEN T > Y - 1 1 GOTO 2004 
2005 GOTO 2012 

2004 IF LEN («(I,J)) > 1 THEN At'],j) * LEFTI (Attl.J), LEN <AK1,J)) - 111 GOTO 2002 
2007 Aid, i) - "lY" 15: GOTO 2002 

2012 T « T t iiA»U,J) ■ «(I,J) I W: IF LEN <AtU,')) >■ 25 THEN 2015 

2013 IF ASC (Ml < ) 13 THEN 2002 
2015 HTAB IS: VTAB X 

2018 IF LEN <A»(I,J)> < * 1 THEN 2000 

2820 NORM. 1 PRINT SPCt 25)1 INVERSE : HTAB IS: VTAB X: PRINT A*(1,J): NORMAL 

2030 hIU, J) ■ LEFTI (At(l,J), LEN <At'l,J)> - t) 

2040 RETURN 

2100 T * 15: HTAB Yi VTAB Xi INVERSE I PRINT " 

2111 HTAB T: VTAB Xi SET CPI: IF ASC (CP*> ( 40 OR ASC (CPt) ) 57 THEN 2100 

2120 PRINT CPi:T • 1 • liC«» CM < CPt: IF LEN (CM) ) - 5 THEN «(I,J) ■ CM:CM « ": ROJRN 

2130 GOTO 2119 

2209 T » I5i HTAB Yi VTAB X: INVERSE i PRINT * ';i NORMAL : PRINT '.'n INVERSE i PRINT ' "|l NOPNAL i PRINT ' 

;i INVERSE ! PRINT ' ' 
2719 HTAB Yi VTAB Xi GET Nil; IF ASC (Nil) ( 18 OR ASC (Nil! > 57 THEN 22I0 
2220 PRINT NHlY ■ Y • liOl* ■ Oil t Nil: IF LEN (01$) ( 2 THEN 2219 



2225 Y 



2245 Y 



t I 



* I 



i 6ET N2li 



1:021 - 021 t 



2250 HTAB Y: VTAB X: GET N3li IF ASC (N3») ( 48 OR ASC (N3I) ) 57 THEN 2259 

2240 PRINT N3*iY ■ Y I 1:031 • 03$ t N3I: IF LEN (031) ( 2 THEN 2250 

2270 AN], J) > OK « '.' t 02* i '.' * 03ti HTAB 15l VTAB X: PRINT ANI,J)i01» ■ 

- "tN3l ■ "i RETURN 
4010 HQfE : VTAB 12: HTAB 3: INVERSE : PRINT '« RETOUR AU MONITOR ••" : NORMAL 
4912 PRINT Dt 

1915 PRINT DtYBLOAO CHAIN,A520" 
4020 CAU 520"A0R£SS MENU 1* 



t LECTURE ARCHIVES "«'! NORMAL i GOSUB 1000 



299 PRINT 'FICHIER D'ADRESSES 
34,3 



ARCHIVES': VTAB 2: PRINT ' 



349 HONE 

350 FOR B • R TO A 

340 NORMAL iNt * BIND, 2) • ' ' • BIND, I) 

345 IF LEN (HIU » I THEN 435 

379 PRINT TAB( (40 - LEN (N*» / 2);W 

380 PRINT TA8( (40 - LEN (8INS.7))) / 2)|8IN0,7) 
390 PRINT 

400 PRINT 011(0,3): PRINT 911(0,11;' '-814(0,4) 

110 PRINT 'TEL: ';BIN0,4);: HTAB (40 - LEN (311(0, SIM: PRINT BINS, 3 

120 PRINT * ' 

439 GET OKI 

435 NEXT 



110 R ■ . !i IF (R > ■ M THEN HTAB 15i PRINT 'C'EST TOUT'i FDR 

150 GOTO 340 

1000 Df » " 

1010 PRINT Ht'OPEN FILEADRESS' 

1021 PRINT M;"REAO FILEADRESS' 

1930 INPUT I 

1049 INPUT A 

1050 PRINT Mj'CLOSE FILEADRESS* 
1140 RETURN 

3500 »" " 

3518 PRINT Mi'OPEN ARCHIVES' 

3520 PRINT Mi'READ ARCHIVES" 

3549 FOR X • TO A 

3350 FOR L - I TO S 

3552 INPUT B1NX.L) 

3355 NEXT L 

3540 NEXT X 

35'0 PRINT M| 'CLOSE ARCHIVES' 

3589 RETURN 

3400 HONE : VTAB I2i HTAB 17: PRINT "ENCORE 5 '| 

3119 G1.I OKI: IF OKI ( ) '0' AND QXI ( ) 'N' THEN 3411 

3129 IF OKI ( ) *«■ IHEN R- Oi G0I0 319 

1190 POKE 34, 9i HOME :M ■ '"; VTAB 12: HTAB 7: INVERSE : PRINT 

4019 IF UU ' IHEN 4039 

1920 PRINT Mi'SlOAO CWIH,A520" 

4025 CALL 520"ADR£SS MENU 1' 

1930 PRINT OU'RIN AORESS MENU" 



• I TO 1099: NEXT : HOC : 



i REtOUR AUnOHItO* • 



Suite pugo 14 



Suite de la page 13 



A suivre: 

En raison de la longueur 
inhabituelle du listing, 
nous passerons ce pro- 
gramme en deux fois. 

La Redaction 



COM POST. /.'TELEPHONE 



M AORESS 

[IX- 4:Y- I5:XX • I 
20 FOR I ■ 1 TO 8: &EA0 »<L): NEXT I 

II DATA 'NOI ;','PRENCK ;*,'AWt£SS£ i'.MILLE 

'.■WTBlia I" 

22 KCK i PftlKT 'FICH1ER O'AORESSES': HTAS 23: VTAB 1: PK1KT 'WOIFI CATION'S PRINT ■ 

*t POKE M.3 

:* home 

23 vtab |] print h<ii: print i print m(2): print i print m<3): print | print w(4): print 
3s print m<3): print : print »<4): print i print w<7); print : print m(b) 

IMX- 4iJ> i: ON XX SGSU8 2099,2838 
lit X ■ 3:J ■ 2: ON XX GOSUB 2000,2050 

129 X ■ I0:J > 3: ON XX GOSUB 2000,2950 

130 X ■ I2:J - 4i ON XX 60508 2000,2850 
140 X - 14iJ - Si ON XX 60SU8 2100,2130 
ISO X - !4:J > 4; ON XX GOSUB 2200,2300 
149 X - 18:J = 7: ON XX 60SUB 2000,2030 
178 X > 20 iJ - S: ON XX GOSUB 2810,2030 

ibo on w wrro too, m 

IN XX- I: 60TD 24 

200 INVERSE : FOR JC = 4 TO 20 STEP 2t HTAB 15: VTAB K: PRINT SPC( 23): NEXT X: INVERSE 

203 FOR 8" RT0 1: IF M(6,J) » M THEN 239 

210 NEXT 

220 NORMAL : If ) = 1 THEN 300 

230 KTAB I5t VTAS 4i PRINT At(fl,U: KTAB ISl VTAB 0: PRINT At(B,2): KTAB 13: VTAB IS: PRINT At(fl,3): HTAfl 13: VTAB 

12i PRINT A*(8,4) 
235 HTAB IS: VMS Mr PRINT A*(8,S): HTAS 13: VTA8 14: PRINT At(0,4>: HTAB IS: VTAB 18: PRINT A1(B,7): KTAB ISl VTAS 

20; PRINT A*(0,S) 
243 NORMAL ; VTAB 24; HTAS 12: PRINT "MODIFICATIONS T\ 
241 SET OKI 

243 IF Wt * '0' THEN XX ■ 2: EOSUG 100 

381 R- < I: IF R > - 1 THEN HTAB 13: PRINT VEST TOUT* I FOR T ■ 1 TO 1000: NEXT I HOME :R * 1: SOTO 23 
310 GOTO 200 
MP wi-.E 
330 FOR S - R TO i 

340 NORMAl. :NI ■ At(B,2) * ' " 4 A*(0,D 

345 IF LEN (Nl) t ■ I THEN 433 

370 PRINT TAS< !40 - LEN (HI)) / 2);fH 

380 PRINT TA8< (40 - LEN (Al<0,7») / 2)jAt(8,7) 

390 PRINT 

400 PRINT At(S, 3): PRINT At<8,3)i' '!«(0,4) 

410 PRINT -TEL: ■;KHi,i);; HTAS (40 - LEN (A*<8,8)D; PRINT AKO.B) 

420 PRINT ' * 

430 SET CM 

435 NEXT 

440 R = * I; IF R ) * 1 THEN HTAB 13: PRINT VEST TOUT: FOR T « I TO 1000: NEXT : HOME iR = 1 : GOTO 23 

430 GOTO 340 

2001 M * " :Y = 13: HTAB T: l/TAB X: INVERSE : PRINT SPC< 23) 

2002 KTAB T: VTAS Xi 6ET Nt: PRINT Nt: IF ASC (Nil ■ 27 THEN GOTO 4000 

2003 If ASC (Nt) » 9 THEN M9 

2004 IF ASC (M ) = 8 TKEJf t = Y ■ 1 : GOTO 2004 
2003 GOTO Mil 

itti If LEN (Rl) > I THEN M = LEFT* (M, LEN CM) - 1): GOTO 2002 

20)7 to = ";Y = 15: SOTO 2002 

2112 1 - t • liM = to < Nt; IF LEN (MM "25 THEN 2015 

2013 IF ASC (Hi) ( ) 13 THEN 2002 

2015 HTAB 15: VTAS X 

2020 NORMAL : PRINT 'Ki 25>i INVERSE : KTAB 15: VTAB X: PRINT Mi NORMAL 

2030 IF LEN (M> ) ■ 2 THEN Rt - LEFT1 <M, LEN (M) - I): POP : SOTO 200 

2040 RETURN 

2050 Rt = ";Y« 15 

2052 HTAB T: VTAB X: GET Nt; PRINT Nt: IF ASC (Nt) = 13 M LEN (Rt) ( =1 THEN 20BO 

2034 IF ASC (NO » B TKEN T - Y - 1 ! GOTO 205S 

205S SOTO 2042 

2054 If LEN <M> ) 1 THEN to * LEFT! (M, LEN (Rtl - I): 6010 2052 

2037 Rt ■ ":Y - 13: BOTO 2052 

2442 T - Y • I;M ■ Rt ' Nt: IF LEN (Rt) ) > 25 THEN 2043 

2043 IF ASC (W) < ) 13 THEN 2052 

2045 KTAB 13: 7T« X 

2070 M = LEFTt (Rt, LEN IM) - ]):A*(fl,J) ■ Rt:MOO • I 

2030 WWW. : HTAB 15; l/TAfl X: PRINT SPC( 25): INVERSE : HTAB 13: VTAB Xi PRINT M(0,J): NORWL 

20SO RETUBN 

2100 Rt ■ "it = 15: KTAB Y: VTAS Xi INVERSE : PRINT * 

2110 HTAB Y: VTAB X: 6ET Cft: IF ASC (CPM ■ 13 AND LEN <W) ( ) 5 THEN HTAfl 15: VTAB Xi NORMAL i PRINT ' 

': RETURN 
III5 IF ASC (CM) ( 40 OR ASC (CM) I 37 THEN 2110 

2120 PRINT CM:Y- Y • l:COt ■ CM t CM: IF LEN (CM) ) = 5 THEN M ■ CMiCM * "s POP : GOTO 200 
2130 GOTO 2110 
2151 to * ":Y- 13 

2141 HTAB t: VTAB X: SET CM: IF ASC (CM) ■ 13 AW LEN CM) < > 3 THEN 2190 
2145 IF ASC (CM) < 4B OR ASC (CM) > 57 THEN 2140 
2171 PRINT CM:Y= Y ■ 1 :Cflt ■ CM • CM: IF LEN (CM) ) ■ 5 THEN M ■ CStiNOO - 1:M(8,J> ■ M:COt ■ "l SOTO 

2199 
2100 GOTO 2140 

2190 HTAB I3i VTAS X: PRINT SPC( 25! : INVERSE I HTAS 13: VTAB X: PRINT Att0,J): RETURN 
2200 to' ":Y= 13: HTAB Y: VTAS X; INVERSE : PRINT ' 'n NORMN. : PRINT V|' INVERSE ; PRINT ' ']i NORMAL : PRINT 

Vj: INVERSE i PRINT • * 
2210 HTAB Y: VTAS X: GET Nil: IF ASC (Nit) . 13 PHO LEN (M) < ) 8 THEN KTAB ISl VTAB X: NORMAL I PRINT SPC< 

3)i RETURN 
2213 IF ASC (Nit) ( 4B OR ASC (Nil) ) 37 THEN 2210 
2220 PRINT NliiY » 1 • liOlt ■ Oil • Nil: IF LEN (Oil) ( 2 THEN 2210 
2223Y* Y • I 
2230 HTM Tl VTAB X: SET N2t: IF ASC (N2») ■ 11M LEN !M) ( ) 8 THEN HTAB 15: VTAS X: NORMAL i PRINT SPCC 

B): RETURN 
2233 IF ASC (H2») < 48 OR ASC IN2t) 1 57 THEN 2230 
2241 PRINT Wli* ■ T < 1:021 • 02t ♦ N2ti IF LEN (02t) ( 2 THEN 2230 
IMS Y - Y « I 
2230 KTAB Yi VTAI 

S): RETURN 
2213 IF ASC 1H3I) ( 48 OR ASC !HJt) ) 37 THEN 2210 
2740 PRINT H3t:Y • 1 I Ii03t • 03* » N3ti IF LEN (031) < 2 THEN 2231 
2270 M • OJt • V < Oil I '.* ' 03*1 HTAB 13) VTAB X: PRINT M:01l * ":02t * "lOJt ■ ":N1* « 

"j GOTO »( 
2300 M- "ft « 13: KTAB Tl VTAB X: INVERSE : PRINT LEfTt (At(0,J),2)|Vl MM (At(0,J),4,2)i* 

J) ,2) i NORMAL 
2310 HTAB "J VTAB X: SET Hit: If ASC (Nit) ■ 13 m LEN IMJ ( ) 8 THEN 2330 
2313 IF ASC (Nit) ( 48 OR ASC (Nit) ) 37 THEN 2311 
7321 PRINT NltiY • Y • 1:011 • Oil • Nltl IF LEN (Oil) ( 1 THEN 2310 
2323) Y - Y * 1 

7330 HTAB Y: VTAB X: GET H2t: IF ASC CNTt) ■ 13 UK LEN (M) ( ) I THEN 2380 
2J33 IF ASC (N7t) ( 44 OR ASC (N21) ) 57 THEN 2330 
7340 PRINT KZflV ■ i ' l:0?t ■ 021 > N21: IF LEN (021) ( 2 THEN 2330 



: GET N31. If ASC (H3t) ■ 13 W LEN (M) ( ) 8 THEN HTAB I5i VTAB X: NORMAL : PRINT SPC! 



2131 HTAS f: VTAS 
2333 IF ASC (N3t) 

2340 PRINT Njtir - 
7371 M 



7T-S, NORMA! | HTAB ISl VTAB 

4000 ■** ■ 'it ■ !"/-■ 

40)0 POtt M,0. HOME iM ■ ' 

4*13 0* ■ " 

4070 PRINT Oti'UOAO CHAIH.A32D 1 

4030 Wit SJO'AORESS MENU I* 



I GET N2t: IF ASC CN31) > 13 WO LEN (M) ( ) B T 
( 4B OR ASC <H») ) 37 THEN 2310 
r • hO« ■ 031 < K»i If LEN (031) ( 2 IHEN 7330 
• 021 t V < 031iAt(S,J) « MiOlt • ":021 • ":03t 



PRINT SPC( 7S)l HTAB ISl VTAB <■ INVERSE : PRINT AKS.J)! HORMAL I RETURN 
VTAB 12: HTAfl 7l IN^RSE : PRINT -M. BflOUR AU NUNI10R "i*: NORMAL 



,'AORESSE 



,'VILLE 



i'.'COOE POST. i-.'TELEPWC iVPWFESSIW : 



II X- 4:Y « IS 

20 FOR L * I TO B: READ MIL): NEXT L 

71 DATA 'NON :','FDEN(]1 

•,'HATERIEL :' 
22 HONE : PRINT 'FICHIER D'AORESSES* : HTAB 32: VTAB I: PRINT •LECTURE*! PRINT * 

': POKE M,3 

25 VTAB li PRINT MID: PRINT : PRINT M(2): PRINT : PRINT MO): PRINT i PRINT M(4)i PRINT 
30 PRINT M(3): PRINT : PRINT M(4): PRINT : PRINT M(7): PRINT : PRINT M(8) 
100 X- M' I) GOSUB 2100 
110 X « lij- 2: GOSUB 2000 
120 X« I0:J ' 3: S0SU8 2000 



130 X= I2|J> 4: 
140 X* MlJ ■ 5i 



t mo 

B 2100 

: GOSUB 22O0 

: GOSUB 2900 

: GOSUB 2OD0 



!,J) = M THEN 230 



^ 



z* 



210 NEXT 

220 NORMAL : If ) = I THEN 300 

230 NCRHAL :H1 ■ AKS.2) • ' ' • AttO,!) 

255 PSINT TAB( (40 - LEN (WD / 2)|W 

240 WINT TAB( (40 ■ LEN (At<B,7))l / 2)yM(0,7) 

245 PRINT 

270 PRINT At(0,3): PRINT »(»,!>•• 'jftKO.I) 

230 PRINT 'TEL: ';At(9,4);: HTM (40 - LEN (M(0, BID: PRINT At(9,8) 

290 PRINT • • 

299 GET OKI 

300 R= • li If R ) • 1 THEN HTAB 15: PRINT VEST TOUT'i FOR T ■ I TO IBOOi NEXT i HO* ;R = I: SOTO 23 
319 GOTO 20S 

349 HOME 

330 FOR - R TO 1 

340 NORMAL :Nt = At(fl,2) 1 * • 1 At(8,D 

343 IF LEN (Nt> ( - 1 THEN 433 

370 PRINT TAB( (40 - LEN (Nt)) / 2)[Nt 

380 PRINT TAB( (40 - LEN (At(B,7))) / 2)iAt(0,7) 

390 PRINT 

400 PRINT At(0, 3): PRINT At(fl,3)[- -|At(fl,4) 

410 PRINT 'TEL: ';At(0, 4);: HTAB (40 - LEN (At(0,8))): PRINT »(B,8) 

420 PRINT • • 

430 GET OH 

435 NEXT 

440 R- « 1; IF R > = I THEN HTAS IS: PRINT VEST TOUT': FOR T = 1 TO IIOli NEXT ; HEME :R * I : GOTO 23 

IM GOTO 349 

2000 M * "lY * 13: HTAB Y: VTAB Xi INVERSE : PRINT SPC( 23) 

2002 HTAS Y: VTAS X; BET Nt: PRINT Nl: If ASC (Nt) ■ 27 THEN GOTO 4I0( 

2003 If ASC (HI) = 9 THEN 349 

2004 IF ASC (Nl) * 8 THEN Y ■ Y - li GOTO 2184 
2003 GOTO 2BI2 

2904 IF LEN (M) ) I THEN M = LEFT* <H, LEN (MI - 1): SOTO 2092 
2007 M = ":T= 13: SOTO 2002 

2012 ( = Y • I :M = to . Hi: IF LEN (Ml ) ■ 23 TKEN 2915 

2013 IF ASC (Nt) ( ) 13 THEN 2002 
2013 HTAfl 13: VTAS X 

2020 NCWAi : PRINT SPC< 23): INVERSE : KTAB 13: VTAB X: PRINT M: HORHAt 

2030 IF LEN (M) ) = 2 THEN M • LEFT* (M, LEN (M) - !H POP : GOTO 200 

2040 RETURN 

2100 to' "lY" ISl KTAB Yi VTAB X: INVERSE : PRINT * 

2110 HTAfl Y: VTAS X: SET CM: IF ASC (CM) = 13 PX0 LEN (M) ( ) 5 THEN HTAfl 15; VTAS X? NORM*. ; PRINT ' 

': RETURN 
2115 IF ASC (CM) ( 41 OR ASC (CM) ) 57 THEN 2118 

2120 PRINT CM:Y" Y * l:C8t ■ CM • CM: IF LEN (CO!) ) ■ 5 THEN M • CStiCM » "i POP : GOTO 200 
2130 GOTO 21 10 
2200 M > ":Y - 15: HTAB Y: VTAS X: INVERSE : PRINT ■ ';i NORMAL I PRINT Vji INVERSE i PRINT ■ ';: NORMAL : PRINT 

*.';: INVERSE : PRINT ' ' 
2210 HTAS Y: VTAB X: GET Nltl IF ASC (Nit) - 13 AND LEN (M) ( ) B THEN HTAS 15: VTAB X: NORMAL I PRINT SPCC 

B>: RETURN 
2215 IF ASC (Nil) ( 43 OR ASC (Nit) > 57 THEN 2210 
2220 PRINT NltiY - Y t 1:011 « Oil I Nlti IF LEN <0lt) ( 2 TKEN 2210 



2223 T 



t I 



2230 HTAB T: VTAB Xi GET N21: IF ASC (N21) ■ 13 AW LEN (M) < > B THEN HTAS 13: VTAS X: NORM. : PRINT SPC( 

8): RETURN 
2233 IF ASC (N21) ( 48 OR ASC IN21) ) 37 TKEN 2230 
2240 PRINT N2t:Y => t t l:02t " 021 < N21: IF LEN (021) ( 2 TKEN 2239 



2243 Y 



* I 



2230 KTAB Y: VTAB X: GET N31; IF ASC (N31) * 13 AMI LEN <M 

B): RETURN 

2235 IF ASC "(31) < 49 OR ASC (N31) ) 57 TKEN 2210 

2249 PRINT NStiY = Y Mi03* = 031 t N3t: If LEN (031) ( 2 THEN 2239 

2270 M * Oil * V • 02t < V < 031: HTAfl !3i VTAS X: PRINT MiOlt ■ ":02t ■ "lOJt ' 

"i euro 200 

4010 POKE M,0: HOME iM ■ "l VTAS 12i HTAB 7: INVERSE i PRINT 'Ml RETOUR AU MONITOR 

4011 PRINT Mi'SLOAO CHAIN,A320' 
4020 CALL 520-AORESS NEW I' 



THEN HTAfl 15: VTAS X: NORMAL : PRINT SPC( 



a suivre 



Suite de la page 11 

■ 




PC1! 


50 





^ 


f 


1305 


■ ^^ ■ 

DATA "006028 
2E2C28206040 




67414F63F261 

4F 


1290 


REM DESSINS 




00", "0060282 


1311 


DATA "414141 




DES PARCOURS 




E2C282060400 




411818414141 


1300 


DATA "406060 









41", "4163636 




602020606040 


1306 


DATA "202020 




361604143034 




40", "404060F 




206040282060 




1 




1F3F9F3E24F4 
1 




20", "4141436 
2F2F2626F4F4 


1312 


DATA "416363 
636160414303 


1301 


DATA "406020 




2 




41", "4161F26 




206060406060 


1307 


DATA "616343 




3495D5D4963F 




40", "4060202 




414060212323 




7 




060604060604 




61", "6163434 


1313 


DATA "0)0343 









140607123236 




426262634341 


1302 


DATA "606060 




1 




01", "0103434 




40406020282C 


1308 


DATA "010302 




767676343410 




70", "4143F1F 




0F020341302B 




1 




9FDF3F164F 




", "4141436F4 


1314 


DAIA "181818 


1303 


DATA "004040 




36IF2416B48 




184141434318 




406060702020 


1309 


DATA "020203 




40", "41434F5 




60", "0040404 




034161202820 




F5F4F67F7F3F 




060607070706 




60", "0202030 




B 









341612028706 


1315 


DATA "000103 


1304 


:DATA "004060 









010001030703 




70787C7C7040 


1310 


DATA "026002 




61", "0001030 




", "414361F3F 




604060620294 




100010307036 




76341436F43 




060", "4141F3 




1 ■ 



LOGO REPAS 




Voici un programme pour tes menageres en panne 
d'idees repas. Ce programme est ecrit en langage LOGO 
pour APPLE II ou HE. Son principe repose sur la proce- 
dure MDN qui permet de faire executer une commande a 
tous les elements d'une liste. 

Cette meme procedure peut done permettre d'autres 
applications tout aussi faciles (mariage de vins avec des 



mets, geographie pour faire ecrire !es principales villes 
d'un pays, graphismes. etc.). 



J. BOUYGUES 



Dans le listing, le • represente le [ et le § represente le ] 



?1MPS 

POUR ENTREES 

EC 'D'ABORD UNE LISTE D'ENTREES = 5 

DONNE ■'ENTREES 'QUICHES. LGRRAINES BOUCHEE5. FRUITS. DE. MER CR0U5TADES. ROAUEFORT SOLADE. HAWAIENNE CONCOMBRES. CRSME ANCHDIADES 



POUR MDN :CMDE sLISTE 
SI VlDEP 1L15TE 'STOPS 
EIECUTE LISTE :CMDE MOT ' 
MDN :CMD£ SP JLISTE 



PREMIER JLISTE 



j*i*» 



POUR VIONDES 

EC 'QUELQUES VIANDES :S 

DQMN'E "VIRNDES "ESCALOPE. MttQNPISE GOULASH PAUPIETTES POULET. flMERICPINE ONOLET. ECHALOTTE CARRE. PORC5 

EC 'S 

MDN "EC :VIONDES 



POUR P0ISS0N5 

EC 'SI VOUS PREFEHEZ LE POI5S0N :§ 

DONNE "POISSONS 'LOTTE.ARMORICAINE DAURP-DE. PROVENCALS R0UCET5. FRITS 

EC '( 

MDN "EC : POISSONS 



UITES. AMPNDES COLMflRS.ROMP.INE SOLE. 1 



POUR DESSERTS 

EC 'QUELOUES DESSERTS FflClLES :& 

DONNE "DESSERTS 'BEIGNETS. POMMES SAVftRIN TARTE. CITRON MOUSSE. FRP.MBOISES MERISSON SORBET. CflSSISS 

EC ■« 

MDN "EC ^DESSERTS 

FIN 

POUR LEGUMES 

EC 'POUR QCCOMPOGNER YOS VIHNDES :% 

DONNE "LEGUMES ■ LfllTUES. BRAISEES 6RP.TIN. COURGET TES CARDITES. SRUTEES POMMES. SOUFFLEES EPINARDS. CREME f 



"ICHAUTS. BARIGOULES 



POUR RcPRS 

REM 

EC -VOICI DES IDEES POUR VUS MENUS 

EC ■* 

ENTREES 

EC -S 

EC 'POUR CONTINUER TRPER COS 

PAUSE 

EC * 

VI ANDES 

EC 'S 

POISSONS 

EC "5 

EC 'POUR CONTINUER TAPER COS 




Suite de la page I nateur. un resume de$ particula- 
tes du basic concerne 
Pour les mordus du langage 
machine, aucune solution de cs 
type nest envisageable. et pour 
cause 

Bien eniendu. remarques et ajouts 
seront les bienvenus afin de com- 
pleter pelit a petit ce panorama des 
patois basic. 




POKE ET PEEK COURANTS : 

BB80->~ BFDF Zone texte 

AOOO -> *BF3F Zone hires 

BF40 -> * BFDF Lignes de texte de hires 

BBA4->* BBA7 Mot caps (efface parfois) 
UN POKE d'une valeur > 123 dans la zone texte affichelecaractere 
en inversion video. 

POKE 616.CV Tabulation verticale 

POKE617.CH Tabulation horizontal 

DOKE 18.PT Tabulation nor. et verticale 

DOKE *-306,V Modrfie le mode de repetition automattque 

(CLAVIER) 

POKE I 26A.V Simulation des caracteres de controle 

PEEK (POKE) r 2C0 Indicateur text (=2) ou hires (=3). Permet 
d'utiliser des fonctions hires en text et rec 
PEEK ( + 35) Contient le code ASCII du caractere (GET). 



PARTICULARITY 

CALL 

CLEAR 

CLS 

DEEK 

DEF USR 

DOKE 

FALSE 

FRE 

GRAB 

HEXS 

HIMEM 

KEYS 

LN 

LOG 

PI 

PULL 

RELEASE 

REPEAT 

RND 



Appel d'un sous-programme en assembleur 

Reinisialise les variables 

Efface I'ecran 

Fournit te contenu d'octet-f 256"contenu 

octet suivant 

Fixe I'adresse d'un programme en assembleur 

Place une valeur en X et X+1- 

Booleen (=0) 

Fournit le nombre d'octets dispontbles 

Permet 1'utilisation de la zone memoire 

¥9800 a ♦ 8400 

Donne en base 10 la valeur d'un nombre 

en base 16 

Libere une zone sous le programme basic 

Lit le clavier, sans effectuer de pause 

Logarithme de base E (Nepenen) 

Logarithme de base 10 

Constante (3.14159265) 

Decale d'un cran !a pile d'adresse (repeat). 

Alloue au graphisme la zone associee a grab. 

Boucle tant-que (cf until) 

Nombre aleatoire : 

X> = 1 — >resultal entre & 1 

X =0 — >precedent tirage 

X < — > meme valeur pour un X donne 

Booleen, vrai (1) 



■ 



LE LOGICIEL 
DE LA SEMAINE 



RING 



...sur TEXAS Ti 99/4A 



Des coups el ties douleurs on 
ne discule pas ! 

Dans I'ambiance survoltee de la 
salle des sports, les deux 
boxeurs. le rouge et le bleu, 
s'observent en s'echauffant. 
Ilssont au mieux de leur condi- 
lion physique e! posseden! une 
droite fulgurante et meurtriere. 
Un seul sortira vainqueur de ce 
combat sans merci. celui qui 
aura le meilleur jeu de manette. 
Les regies de ce match du siecle 
sont severes : combat en trois 
rounds, abandon interdit (on ne 
peut pas sortir du ring), obliga- 
tion de toujours faire face a son 
adversaire. victoire par K.O. ou 
aux points, coups bas aulonses. 
Les coups sont portes au moyen 
du bouton " leu ■ de la manette 
de jeu (il est inutile d'appuyer 
avec mechancete sur le bouton. 
le coup n'en sera pas plus 
puissant !}. 

Trois uppercuts (coup juste en 
dessous du menlon, tres dou- 
loureux, essay ez avec un 



copain...) au cours du meme 
round enlrainent un K.O. et la 
perte du combat. 
Chaque coup marque un point, 
chaque uppercut 10 points, le 
total, si le combat ne se termine 
pas par K.O.. determine le 
vainqueur. 

Ring est un jeu tres » physique ■• 
qui se joue a deux (c'est prefe- 
rable) mais spectateurs et sup- 
porters peuvent completer I'il- 
lusion (cris. encouragements, 
silflets...). 

Le graphisme est soigne (les 
boxeurs le seront apres le com- 
bat) et la simulation parfaite. 
Evitez quand meme une identi- 
lication trop poussee avec votre 
boxeur. vous risquez. ou plutot 
votre partenaire risque de pren- 
dre un mauvais coup !. 
Un jeu a mettre entre tous les 
poings, sur TEXAS TI 99/4A. 
equipe de la mini-memoire et 
des manettes de jeu. distribue 
par infogrames. 




PETITES ANNONCES 
GRATUITES 



VENDS ZX 81 neuf (achete le 
I3decembre) avec manuel Le 
tout 450 F NICOLAS Emma- 
nuel, 27. rue Rene-Paquel. 
57050 METZ Tel 730 05 51 de 
18 h a 20 h 30. 




VENDS HP 41 C 4 mode d'em- 
ploi el manuel d'application 
(3mois d'utilisation) 1 000 F 
(valeur neuf prix DURIEZ 
1 765 F). Tel. 287,34.53 [vers 
19h30). 



VENDS ZX 81 4- 16 K+ magne- 
to 4-conect. OS 4- carte mere 
et sonore -f un abonnement 
d'1an a ECHOS SINCLAIR 
4 nombreuxlivreset programmes 
4- 8 K7 (jeux et compt. dont 
4SINCLAIR) valeur 2 200 F, 
vendu 1 500 F. Jean LOUISOT, 
152, cours Gambetta. 69007 
LYON. Tel. 853.37.67. 



RECHERCHE programmes TI 
99/4A (BASIC ETENDU). 
Romain et Bruno CASAVEC- 
CHIA. ■ LE HOME -, 10. avenue 
Thiers, 06500 MENTON. 



VENDS TI 99/4A -f manettes 
4- basic etendu -f cordon pour 
magnetophone 4 magneto- 
phone 4ECHECS +2livres 
■ 50 programmes pourTI 99/4A ■■ 
et « Exercices pour TI 99/4A » 
4- manuel d'utilisation 4- qua- 
tre numeros de 99 Magazine 
4- nombreux programmes sur 
K7 + listings. Achete 4 800 F. 
cede 2 600 F. Mike LAHMI. 
tel. 781.14.30. 14, avenue Cour- 
teline. 92700 COLOMBES. Ne 
ratez pas cette offre. 



VENDS MULTITECH MPFIl 
(08/83) 64 KRAM -j- 1 cassette 
jeux 4- utilitaire. Version modu- 
lateur + PERITEL. Prix 3 400 F, 
J. -Paul CHAMOULEAU, 12.10- 
tissement Simon, 40270 GRE- 
NADE-SUR-L'ADOUR. 



VENDS CASIO PB 100 modifie 
en FX 700P (acces aux fonc- 
tions trigo. operations sur les 
nombres et fonctions basic) 
4 exl. memoire 4- interface K7 
+ livre + K7 de programmes 
inedits - 1 000 F. D. GROBELNY. 
69, route nationale. 62740 FOU- 
QUIERES-LES-LENS. 



RECHERCHE ZX SPECTRUM 
48 Ko faire offre a D. GROBEL- 
NY, 69. route nationale. 
62740 FOUQUIERES-LES- 
LENS. 



RECHERCHE PC 1500 (PC2de 
TANDY) faire offre a M. GRO- 
BELNY. 69. route nationale. 
62740 FOU QUI ERES-LES- 
LENS. 



VENDS CASIO FX 702 P (neuf) 
-f FA 2 4- 1 cassette jeux + La 
decouverte du 702 P. Le tout 
950 F. Nicolas BARUCH, LE 
MOULIN-A-VENT, 77132 LAR- 
CHANT. 



HEBDOGIC1EL recherche un 
informaticien passionne par la 
programmation pour prendre 
en charge les essais des logl- 
Ciels envoyes par ses lecteurs. 
Le candidal, professionnel ou 
autodidacte. devra avoir ('expe- 
rience du langage Basic de plu- 
sieurs ordinateurs et. si possi- 
ble, de LOGO. FORTH. LSE 
etc.. Une formation est prevue 
pour adapter ses connaissances 
aux autres maleriels Le poste 
base a PARIS est a pourvoir 
rapidement. Envoyer votre dos- 
sier de candidature : CV, photo, 
pretentions, connaissances 
informatiques, sous ia reference 
SP 1595 a HEBDOGICIEL. 27. 
rue du General-Foy. 75008 
PARIS. 



VENDS APPLE 2 4 unite cen- 
trale 4 moniteur vert 4 lecteur 
de disquettes avec conlroleur. 
Prix 10 000 F.Tel. (40)48.50.69. 
J.-M. SORNIN. 



ACHETE pour TI 99/4A le 
module extensed Basic, magne- 
tophone a casseltes, syntheti- 
seur de parole, les cassettes 
- apprendrele basic ■■etconseil- 
ler financier et modules Foot- 
bail, Space invaders, Munch- 
man.VOLTO Patrick. 3. alleede 
Quebec 33600 PESSAC. Tel.: 
(56) 36.55.51 (demander 
Patrick). 



CHERCHE pour TI 99/4A ma- 
gneto Texas Instruments avec 
cable TI extended Basic. PETIT 
Jean-Paul, 16. avenue des Ra- 
maris, 26200 MONTELIMAR. 
Tel. (75) 51.03,09. le soir. 



CHERCHE possesseur MICRO 
MULTITECH MPF II pourechan- 
ge d'informations ou etude de 
I'appareil. J. -Claude GAIN, 
tel. 30.07.02, 76290 MONTIVIL- 
LIERS. 



RECHERCHE modu 
etendu pour TI 99 ' 
Yves BILLARD, ll.carrefour 
Prud'homme. 91000 BONDOU- 
FLE-EURY Tel (6)086 10 93 



VENDS SHARP PC 1500 
1300F. CE 150 (impnmaote) 
1 300 F. CE 155 (8 Ko RAM) 
300 F, CE 159 (8 Ko RAM prote- 
gee) 900 F, CE 153 (lablette 
digitale) 900 F + papier - stylo 
— programmes — livres + mal- 
lettes letout5 300F CHER- 
CHE contact utilisateur APPLE 
lloullEpourechanged'ideeset 
de programmes M LEMOINE 
Joel. 2. rue Albert-Leyge. bat. 
28. esc, 2.95340 PERSAN. 



VENDS TI 59 (8/80) tres bon 
etatemballage engine 40 cartes 
manuelles. nombreux program- 
mes el plusieurs livies traitant 
de la Tl 59 650 F le tout. 
RECHERCHE lumieres et tous 
documents sur Langage 
Machine de microprocesseur 



Possesseurs d'ORlC 1. que me 
proposez-vous en echange ? Je 
possede CHESS. POKER, 
MASTERMIND, ZIG-ZAG. DES- 
TERITE. JACKMAN. 3D MAZE, 
BREAKOUT. BATAILLE NA- 
VALE. PUISSANCE 4. INVA- 
SION. VOL ORIC. MANOIR DU 
DOCTEUR GENIUS. XENON, 
THE ULTRA. ZORGON, MAR- 
RIER. VANDEPUTTE B. 1 LE 
BOCAGE59131 ROUSIES.Tel 
(27) 65.18.18 apres 18 h. 



Directeur de la Publication - 

Redacteur en Chef : 

Gerard CECCALDI. 

Directeur Technique : 

Benolte P1CAUD 

Responsablelnformatique : 

Piernc GLAJEAN 

Maquette : 

Christine MAHE 

Dessins : 

Jean-Louis REBIERE 

Imprimerie : 

DULACetJARDINSA 

1, rue Gay-Lussac. Z.I. N Q 1. 

27000 EVREUX. 

Editeur : 

SHIFT EDITIONS. 

27. rue du Gal-Foy 75008 PARIS 

Publicity au journal. 

Distribution NMPP. 

Commission paritaire en cours. 

N n R.C. 83B6621 



